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EDITORIAL 


THIS MONTH'S MAGAZINE 


This is the Christmas issue of ELBUG and the magazine is filled to overflowing 
this month with programs and articles. Indeed, we have used part of the back cover 
to fit everything in. Some of the items have a seasonal flavour, for example, a 

musical Christmas card for you to type in, plus a game we have called Santa's 
Parcels. We have also included the first part of an article showing how to write a 

game playing program using this as an example. 


There are another three games, all excellent examples of their kind, to entertain 

you over Christmas, plus the second part of our series on Electron Graphics. To 
make the maximum use of your Electron's graphics, we have included a really good 

Computer Aided Design program called ASTAAD. You can use this to produce quite 
sophisticated drawings as our illustrations show. You will find plenty more to 

interest you as you read through the magazine this month. 


SOFTWARE CLUB 


You will see in the supplement, that you receive with 
Software Club that 

software that is reviewed in the BEEBUG magazine is offered at discount 
members. We expect to offer similar discounts to ELBUG readers as soon as software 

for the Electron becomes more readily available. Program Power have just launched a 

large range of Software for the Electron, though they were unable to get any of it 

to us in time for this issue. Some of their BBC micro software is exceptionally 

good, and we hope to take a look at their Electron offerings in time for the next 


details of the 


ELBUG, 

BEEBUG members. Each month, the best of the 

to BEEBUG 


AVAILABILITY OF THE ELECTRON 


It appears that many people are having difficulty in buying an Electron. 

W.H.Smith's, the main high street retailer, and computer shops around the country 
are selling their Electrons as fast as they arrive, though they will put your name 
on a waiting list if you ask. Acorn say that there has been difficulty in the 

supplies of some components, while demand has been higher than expected. Acorn also 
say that you can order your Electron by mail order directly from Vector Marketing, 
but according to Vector Marketing you will probably have to wait 6 weeks for your 
micro to be delivered. 

Estate, Wellingborough, Northamptonshire NN8 2RL (tel. 0933-79300). 


if required, is Vector Marketing, Dennington 


FUTURE ISSUES 


As we like to have at least a short holiday over Christmas ourselves, the next 
issue of the magazine, which you will receive at the beginning of January will be 
the January/February issue. The next one after that will be the March issue. 


With two issues now complete, we would be pleased to receive any comments from 

In addition, any contributions, short or long, that you might 
like to write would also be most welcome. Let's be hearing from you. 


you, the readers. 


Mike Williams. 
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by A. Weston 


presentation is important if you want your programs to really look good 
and this month we present another short utility that enhances the appearance of text 
on the screen, particularly where it is used for headings and titles. 


This short program produces 

on lettering used for headings, 
and can considerably improve the look 
of the title page of programs in which 
it is incorporated. In this particular 
version the text is printed in white 
with a black shadow against 

background but you could 
different colour combinations 
altering line 1020 
page 107 for further details. 


3D 


a 


blue 


a 


by 


see User Guide 


To use the program for 
purposes, 

procedure PROCdouble. This 
in lines 1000 onwards. 


your own 

the 

is defined 

To call the 

procedure you need one or more lines of 
the kind appearing on lines 80 to 110. 

In each 

the procedure call 
quotation marks 
printed. The second two parameters give 
the x and y graphics coordinates of the 
printing position on the screen. A 
little experiment is needed here 
remember that in a graphics mode 0,0 is 
the bottom left hand 
1279,1023 is the top right hand corner. 


you really only need 


3-D Heading 
E0.2 

G,Weston 

December 1983 
Subject to copyright 


10 REM Program 
20 REM Version 
30 REM Author 


three parameters follow 


The 


in 


is the text to be 


40 REM ELBUG 
30 REM Program 


60: 


70 MODE 5 

80 PROCdouble("ELBUG",450,800) 

90 PROCdouble("for tne 
100 PROCdouble("Acorn",450,400) 

110 PROCdouble("Electron",360,200) 
120 END 

130: 

1000 DEF PROCdouble(A$,X,Y) 

1010 VDU5 

1020 VDUl9,0,4,3,0,0:VDUl9,1,0,0,0,0 
1030 GC0L1,3 


but 


400,600) 


and 


corner 


The technique used in this program 
is to print the text in white, and then 
to overprint it in black 8 positions 
down and to the left (hence line 1070). 

might 


Overprinting 
partially to erase the original text, 
but this is avoided by using the GCOL 
statement in line 1030 to perform 
so-called 'OR' plotting. See the User 
Guide page 153 for more information on 

this. 


be 


1040 MOVE X, Y 


1350 PRINT A$ 

1060 GCOL 1,1 

1070 MOVE X-8,Y-8 

1080 PRINT A$ 

1090 ENOPROC 


I 

% 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 




MOVING GR APHICS OBJECTS^ 

When moving objects around the screen with MOVE and DRAW remember that a change 
of several graphics units may be necessary before the shape actually moves one 
physical graphics dot on the screen. So step the movements by 2, 4 or 8 rather than 
assuming 1. 
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RETURN OF THE DIAMOND 


/■ 


i 


by R. McGregor 


Y« 


K 


T 


r 


t 


adventure games' have become very popular in the last few years. The 
Return of the Diamond' is our very own adventure game now fully adapted for the 
Electron. 




called 


So 


I 


Moves the player. 

Tells the player of all 
the items that he is 

carrying. 


An adventure (in computer terms) is 
a game where you travel about 
world described to you by the computer. 
The computer displays 
what you can 


move 

inventory 


a 


where you are 


f 


take 


and in which 

you can move 
communicate with the computer through a 
series of English words such as GET 

Movement, in this 


/ 


Lights the lamp. 
Turns the lamp off. 


light 


directions 


You 


off 


Drops the selected item. 


drop 

kill 


$ 


Tests if the player has 
met a gremlin or a pixie. 
Kills the gremlin. 

Kills the pixie. 

End of game. 


KILL, TAKE 

particular game can be in any 
four directions, and is accomplished by 

typing N, S, E or W for the four 
compass points. 


one of 


kill-gremlin 
kill-pixie 
finish 


Return of the Diamond is a 

relatively small adventure game 
(essential for a game that is to be 
typed in). There 
locations that you can visit. It is 

nevertheless fun to play, and may give 
you a feel for adventure games before 
purchasing a mammoth one. The object 


are just 


nine 


of the game is to search for the great 


and return it to Diamond 


diamond, 

Castle. Of course you will meet deadly 

enemies in your search, and you 

to use your wits to thwart them. 
As you play the game you will probably 

construct 

locations. We will publish the full map 
next month just in case you get lost. 


will 


map of 


to 


a 


Happy hunting. 


ADVENTURE PROCEDURES 


Sets up the arrays and 
initialises the variables. 
Prints the title. 

Prints the current 


set-up 


titl 

look 




position, with room 


description, exits and 


items 


Tests for a move, look 
inventory, score, quit, 
or move command. 

This deals with the 
rest of the commands. 


analyse 


f 


other- 

commands 

time¬ 

passing 


f 


increases moves and 


deals with the lamp. 
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10 REM Program Diamond 
20 REM Version E0.2 


610 DATA North,East,South,West 
620 DIM bright$(2) 

630 bright?(0)="( It's off )" 

640 bright?(1)="{ It's shining dimly) 

650 bright?(2)="( It's shining bright 


30 REM Author R.McGregor 

40 REM ELBUG December 1983 

50 RDM Program subject to Copyright 


60: 


iy ) 


70 MODE 6: VDU19,0,4,0,0,0 

80 PROCsetup 
90 PROCtitie 
100 PROClook 
110 REPEAT 

120 REPEAT 

130 INPUT'Vnat now",c? 

140 IF LEN(c?)=0 THEN PRINT"Eh? 

150 UNTIL LEN(c?)>0 

160 PRINTSTRING?(39," 

170 PROCanalise 
180 PROCtimepassing 
190 UNTIL dead OR won 
200 PROCfinish 
210 END 
220 : 

230 DEF PROCsetup 
240 DIM place?(9) 

250 FOR i=l TO 9 
260 READ place?(i) 

270 NEXT i 
280 DATA in a hut,in a garden 
290 DATA in a shrubbery,on a path 
300 DATA on a lane,in a forest 
310 DATA at a dead end,at diamond castle 
320 DATA in a dark passage 
330 DIM newpos(9,4) 

340 FOR i=l TO 9 
350 FOR j=l TO 4 
360 READ newpos(i,j) 

370 NEXT j 
380 NEXT i 

390 DATA 0,2,0,0,0,0,5,1,0,0,6,0 
400 DATA 0,5,7,0,2,6,0,4,3,0,9,5 
410 DATA 4,0,0,0,0,9,0,0,6,0,0,8 
420 DIM item?(6),itemname?(6),itempos (6) 

430 FOR i=l TO 6 

440 READ item?(i),itemname?(i),itempo s(i) 
450 NEXT i 

460 DATA a lamp,LAMP,5 
470 DATA the great diamond,DIAMOND,7 
480 DATA a sharp knife,KNIFE,3 
490 DATA a hammer,HAMMER,1 

500 DATA a mean looking yremlin,GREML 
510 DATA a nasty little pixie,PIXIE,9 
520 DIM com?(7) 

530 FOR i=l TO 7 
540 READ com$(i) 

550 NEXT 

560 DATA GET,TAKE,ON,LIGHT,OFF,DROP,KILL 

570 DIM direct?(4) 

580 FOR i=l TO 4 
590 READ direct?(i) 

600 NEXT 


660 on=FALSE 
670 reallit=2.9 

680 lit*2 
690 position 3 ! 
700 dead=FALSE 
710 won=FALSE 
720 moves=3 


730 score=30 


740 carried=0 


) 


750 ENDPROC 
760: 

770 DEF PROCtitie 
780 PRINT:PRINT 

790 PRINT 5 "7 * 11 ******************** * 

****** 


830 PRINT 3 pQ 5 • *** *********** ***** *** * 
********** 

810 PRINT SPC3; 
iamond 

820 PRINT SPC3; "**** 

****** 

830 PRINT 5:***************** 
********** 


****** 


Return Of The D 


****** 


by R. MeGreg 


or 


340 PRINT SPC7; 


*********************** 


**** ** 


850 ENDPROC 
860: 

870 DEF PROClook 

880 IF (positions OR positions} AND 
(NOT on OR (itempos(1) Oposition AND 
itempos(1)<>0)) THEN PRINT"It is pitch 
dark.":ENDPROC 
890 PRINT 
900 PRINT M You are 
910 PRINT 
920 PRINT”Exits 
930 FOR i=l TO 4 


";place?(position) 


940 IF newpos(position,i)>0 THEN PRIN 


T direct?(i);": 


950 NEXT i 


960 PRINT 
970 PRINT 

980 PRINT"You can see :" 

990 pr i n ted=FA LS E 
1000 FOR i=l TO 6 

1010 IF itempos (imposition THEN PRINT 
item$(i):printed-TRUE 

1020 IF itempos(i)=position AND i=l AN 
D NOT on THEN PRINT bright?(0) 

1030 IF itempos(i)=position AND i=l AN 
D on THEN PRINT bright?(lit) 

1040 NEXT i 

1050 IF NOT printed THEN PRINT"nothing. 
1060 ENDPROC 
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1070: 

1080 DEF PROCanalise 
1090 IF LEN(c$)=1 THEN IF INSTR("NESW 
,c$)>0 THEN PROCmove:ENDPROC 
1100 IF c$="LOOK" THEN PROClook:ENDPRO 


1510 IF comno=0 OR thingno=0 THEN PRIN 
i ;g Sorry. I don't understand.":ENDPROC 
1520 ON comno GOTO 1533,1530,1540,1540 
,1550,1560,1570 
1530 PROCtake:ENDPROC 
1540 PROCIight;ENDPROC 
1550 PROCoff:ENDPROC 
1560 PROCdrop:ENDPROC 
1573 PROCki11:ENDPROC 
1580 ENDPROC 

1590: 

1630 DEF FNcommand 

1610 no-0:i=0 
1620 REPEAT 

1630 i=i+l 

1640 IF LEFT$ (c$,LEN (com$ (i))) =com$ {i) 
THEN no=i 

1650 UNTIL no>0 OR i=7 
1660 
1670: 

1680 DEF FNthing 
1690 no=0:i=0 
1700 REPEAT 
1710 i=i+l 

1720 IF RIGHTS(c$,LEN(itemnameS{i )))=1 
temname$ (i) THEN no= i 
1730 UNTIL no>0 OR i=6 
1740 
1 750: 

1760 DEF PROCtake 

1770 IF itempos (thingno) Oposition THE 
N PRINT"I don't see that here.":ENDPROC 
1780 IF thingno=5 OR thingno=6 THEN PR 
INT"You'll be Iucky1'':ENDPROC 

1790 IF carried=3 THEN PRINT"You can't 
carry any more.": ENDPROC 
1800 itempos{thingno)=0 
1810 PRINT"0.K. 

1820 carried=carried+1 
1830 ENDPROC 
1840: 

1350 DEF PROCIight 

1860 IF itempos(thingno)<>0 THEN PRINT 
I would if you had it.":ENDPROC 
1870 IF thingnoOl THEN PRINT"You're j 
oking!":ENDPROC 

1880 IF on THEN PRINT"It's already on. 
":ENDPROC 

1890 IF 1it=0 THEN PRINT"It won’t reli 
ght.":ENDPROC 
1900 PRINT"0.K." 

1910 on=TRUE 
1920 ENDPROC 
1930: 

1940 DEF PROCoff 

1950 IF itempos(thingno)<>0 THEN PRINT 
You're not carrying thatENDPROC 
1960 IF thingnoOl THEN PRINT"Come off 
it! ".-ENDPROC 


r-tll 


11 


C 


1110 IF LEFT$(c$, 3) INV" THEN PROCinv 
entory:ENDPROC 

1120 IF c$="SCORE" THEN PRINT"Your sco 

.":ENDPROC 
1130 IF c$="MOVES" THEN PRINT”Moves ma 
de : ";moves:ENDPROC 
1140 PROCothercommands 
1150 ENDPROC 
1160: 

1170 DEF PROCtimepassing 


n. 




re is 


1190 moves=moves+l 
1200 dinmed=FALSE 

1210 IF on THEN reallit=reallit-0.1:di 
iTtned=TRUE 

1220 lit=INT(reallit) 

1230 IF dimmed AND Iit=0 THEN PRINT"Yo 
ur lamp just went out.":on=FALSE 

1240 won=(position=8 AND itempos(2)=8) 

1250 ENDPROC 

1260: 

1270 DEF PROCmove 

1280 dir=INSTR("NESW",c$) 

1290 IF newpos(position,dir)=0 THEN PR 
INT"You can't move in that direction.": 
ENDPROC 

1300 IF (position=6 OR position=9) AND 
(NOT on OR (i tempos (1) Oposi tion AND i 
tempos(1)<>0)) THEN PRINT"You have fall 
en into a snake pitl":dead=TRUE:ENDPROC 
1310 position^newpos(position,dir) 

1320 PROClook 
1330 ENDPROC 
1340: 

1350 DEF PROCinventory 

1360 PRINT 
1370 PRINT 

1380 PRINT"You are carrying : 

1390 printed=FALSE 
1400 FOR i=l TO 6 
1410 IF itempos(i)=0 THEN PRINT item$( 
i):printed=TRUE 

1420 IF itempos(i)=0 AND i=l AND NOT o 
n THEN PRINT bright$(0) 

1430 IF itempos(i)=0 AND i=l AND on TH 
EN PRINT bright$(lit) 

1440 NEXT i 

1450 IF NOT printed THEN PRINT"nothing 


no 


no 


II 


H 


U 


ri 


1460 ENDPROC 
1470: 

1480 DEF PROCothercommands 
1490 comno=FNcommand 

1500 thingno=FNthing 


fl 


pi 7 
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SQUARE DANCE 


hy Martin Richards 


of expanding and contracting rectangles which 


This program displays a 

change colour during the course of execution. The actual 'form' of the patterns is 
random and tnerefore a number of runs will display different patterns. Some patterns 

a while, whilst 

interesting display of coloured graphics. 


keep on changing 


others appear 


to 


giving an 
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Hill 


I ! 


m % 


In this program, the commands QCOL 


1 } is 


; : : 
n i 


■ 


«i 


a a 


£ 


User Guide 


and VDU19 


p.97 and 


i a a a i 


are used 


p.102) 

producing the many colours generated 
Some interesting fringe patterns ar 
also produced if you watch the output 
on a monochrome TV. 


to good effect 


in 


« a a i 




«M <■ 


* * * * 


III 


! 1 i 


a z z 


■ • •» 
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a ■ 


a a 






I 
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i £ i : 


PROGRAM ANALYSIS 
(The numbers below refer 
numbers in the program listing.) 


= X XX- 


t t • t t 


£ X 


■ 


a i ■ • • 


line f 


i i 1. -1 


to 


i 




ill 


« m m 


I 1 


Gets rid of the cursor. 


90 


:J i 

i t z~: 


Puts the graphics origin at 


100 


the 


£ I 


entre of the screen 


initial height 
width of tne rectangle. 

the speed at which 

sides are to change. 

Selects the initial colour. 
210 

Main Loop (press ESCAPE 
stop). 


110 


and 


S 


I 


i a 


120 


the * 


» ■ 


i i 


Hill 


£ 11 


m i a a a • 


i ii 1 

■ i 

! I l 


30 


. . i ■ . si 


n § 


1 40 to 


Hill 


Hill 


to 


Hill 


% i i I I 


i 


5 S * 


w \ m m m 


* 


■ ( 


l • t i I 


150 to 170 


I j 


mu 


■ t > i 


f i i i 


■ 


yj 


i 




Draws any particular 
Chooses the next 
neight. 

If rectangle is too wide then 
change direction and colour. 

If rectangle 

change direction and logical 
colour. 


rectangle. | 

width and - 




180 


a • 


rn 


■ a a i 


a a > i 


3 


1 


* • m ■ * 


I I : i 




■ i a • c 


a a i a ■ 


! i 


inn 


i 




* 


too high then 


200 


IIUHH 


I 


* 


Li 


a • 


ill 


i a a a 


I 


■ 


1 


I I 1 




If 


« I 


11 


4 a 


z ! 


i I 


i * a 
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a a a l ■ a ■ i 
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10 REM Program Square Dance 


20 REM Version 


E0.2 


M.Richards 


30 REM Autnor 


December 1983 


40 REM ELBUG 


Subject to copyright 


50 REM Program 


60: 


70 ON ERROR GOTO 220 


80 MODE 1 


90 VDU23,1, 0; 0;0;0; 


100 VDU29,640;510 


110 X-0:Y=0 


:DY=RND(50) 


120 DX=RND(50) 


130 C=RND(3) 


140 REPEAT 


150 GCOL 3/C 


160 MOVE X/Y:DRAW-X,Y:DRAW-X 


Y 


170 DRAW X,-Y:DRAW X,Y 


210 UNTIL TRUE=FALSE 


180 X-X+DX:Y=Y+DY 


220 ON ERROR OFF:MODE 6 


190 IF ABS(X)>640 THEN DX 


@ line 


RND(3) 


II 


DX : 


230 REPORT :PRINT 


200 IF ABS (Y) >510 THEN* DY 


DY :VDU 19 


243 END 


,RND(3),RND(7);0; 


THREE NEW BOOKS FOR THE ELECTRON 


Reviewed by Mike Williams 


The arrival of the Electron is the signal for publishers to rush out books for 
the user, particularly in this pre Cristmas 
first to be available. 


21 Games for the Electron by Mike 

and Kay Ewbank 


James, 

published by Granada at £5.95. 
ISBN 0-246-12344-3. 


S.M. 


As well as being a useful collection 

programs this book also 
emphasises its other aim of developing 
the programming 

In view of this it is 
astonishing how badly written, in my 
view, many of the programs 

which is used on the Electron, 
is one of the best versions of Basic on 


of 


skills of the reader. 


BBC 


any micro for writing clear, 
well structured programs, 
book chooses to ignore nearly all 

which make 
in favour of 

programming that 'was 


Yet this 

the 

this such a good 

a style of 
out of date 10 


ironic is that the text accompanying 
each program is really quite good, with 
helpful analysis of the program and 
suggestions for modifications and 
enhancements. Clearly many Electron 

tempted by a book of 
games at the reasonable price of £5.95. 

Even so I cannot bring myself to 
recommend a book which makes such bad 

It is no way to 
encourage newcomers to computing to 
write programs. 


Considerable use is made of 
subroutines using GOSUB instead of the 
preferable procedures. REPEAT-UNTIL, 
often such a natural form of 
expression, is never mentioned 

is IF-THEN-ELSE; there is 
integer variables, 
variable names, little 

tex t and many 


will be 


neither 

no use of 
no meaningful 

lower 

examples of 


use of BBC Basic. 
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programs written in Basic both long and 
relatively slow. 


The Electron Book, Basic, Sound and 
Graphics by Jim McGregor & Alan Watt 
published by Addison-Wes1ey at £7.95. 
ISBN 0-201-14514-6 


Programs that are written directly 

in machine code are much more compact 

* 

and much faster. This is how the 
of the action games are written, so 
there 


This is an excellent book packed 

information. It is a 

interested 


with ideas and 


advantages to writing 
programs in machine code, though it is 
harder. Such programs are normally 
written in a slightly easier format 
called Assembler and this book provides 
a comprehensive introduction to this 
form of programming. 


book for beginners who 
in writing their own programs and are 
prepared to spend some time and effort 
on the way. The first half of the book 
introduces all the main features of BBC 


Basic with excellent examples. I would 
wish that procedures and structured 
programming were introduced earlier in 
the book, but it is good to see GDSUB 
being ignored completely. The second 
part of the book consists of three 
chapters dealing with graphics, sound 
and animation on the Electron. Again 
there 

information, well presented and with 
many good illustrations. The style and 
content of this book are both 
excellent, and with just over 300 pages 
for under £8, it is really good value 

compr ehen sive 

introduction to programming in Basic on 
the Electron, this book will be hard to 
beat. 


Assembler programming is not an 
easily learnt skill and most books on 
the subject take a fairly formal 
approach. The book reviewed here 
attempts a more popular approach with a 
number of somewhat gimmicky diagrams 

and illustrations that unfortunately 

tend to confuse rather than clarify the 
ideas being presented. Tne order of 
presentation is also somewhat unusual 
with 


plenty of detailed 


is 


to subroutines and 

before more than the most 

elementary addressing modes. Many 


for money. 


As 


a 


aspects of assembler 


prog r armung 

covered including, for example, more 
advanced topics such as interrupts. 

There is also quite good coverage of 
the ways in which assembly language 
programs are embedded within Basic on 
the Electron. 


Assembly Language Prog camming on the 
Electron by John Ferguson & Tony Shaw 
publisned by .Addison-Wes ley at £7.95. 
ISBN 0-231-14527-8 


This book represents an honest and 

lb 

worthwhile attempt to popularise what 
can often be a difficult 

Unfortunately, this 
successful in this case, and I continue 

to believe that a more serious approach 

for this subject. 
That apart, this is a sound book that 

will nelp many users to learn assembly 
language programming and is reasonably 


subject, 
is not altogether 


Although most microcomputers 
prograrmed in Basic, the machine itself 
can only understand so called 'machine 
code 1 , a much more primitive language. 
Programming in Basic is generally much 

but the necessity of bridging 
the gap between Basic and machine code, 
which is what the Electron's 
interpreter 


is still the best 


easier, 


tends to make 


BOOK NEWS 


We have also recieved for review a number of books on computing published by 

Usborne. None of the books is specifically about the Electron but they are all very 
colourful and well produced and would make ideal Christmas presents for the kids, if 

not for the grownups. They cost only £1.99 in paperback with a larger than usual page 
size. Examples of the titles are: 


Computer Jargon 


Robotics 

Practise Your Basic 


Adventure Programs 

All the books should be in the shops now. 
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ASIA AD 


A PROGRAM FOR COMPUTER AIDED DESIGN 


by Jim Tonge 


Computer Aided Design (CAD) is one of the more fascinating applications of 
computers and one for which the Electron has considerable potential. We present here 
a really excellent example of a CAD package which contains all the basic drawing 

not only that, but the package will also allow you to produce Any Size 

Text printed at any Angle Anywhere on the Drawing, which explains the origins of the 
name of the package, ASTAAD. 


INTRODUCTION 


the 


from 


you 

illustrations accompanying this 
article, the ASTAAD program is capable 
of producing remarkably sophisticated 
drawings for its extremely compact 

The program is also well 
structured so that you can readily 
extend 


size 


the range of facilities to suit 


The program runs in 


your own 

mode 0 for the maximum resolution, and 

all the drawing is done in black on a 
white background. The various options 
are selected by the function keys plus 
Shift and Copy. 


A function key label accompanies 

this article. This may be photocopied 
and attached above the number / 

function keys with a little Blu Tack or 
similar. 


moving to one end of the line, press f6 
and then enter the length in g.u. and 
angle in degrees, each followed 
Return. For example, f6 234 <return> 93 

<return> gives a vertical line from the 
cursor towards the top of the screen; 

f6 432 <return> 180 <return> gives a 
horizontal line to the left. Note that 
Return on its own enters zero, so that 
f6 432 <return> <return> draws 


USING THE PROGRAM 


RUN, 


When the program 
flickering cursor appears at the centr 

of the screen, which can be moved in 
steps of 10 g,u.(graphics units) by the 
four cursor keys. As a guide, the 

on the Electron are 


is 


a 


o 


a 


horizontal line to the right. Also both 
positive and negative angles can be 


graphics 

made up of 1280 g.u. horizontally, by 

vertically. Function key f4 makes 

the cursor MOVE, f5 makes it DRAW, and 

from the 


specified 


The standard characters can be 
entered directly from the keyboard, the 
cursor being moved 
normally two 
Underlining 

superscripts one step up 
characters ~ / and \ can be positioned 
for accents. 


The distance 


f7 DELETES. 


each one, 
the right. 

down, 
and the 


starting point is 


shown in the top 


and this acts as a 


right hand corner, 
ruler. This can be 


to 


one 


new 

starting point at any time by pressing 
Shift, 

automatically when you change direction 
using the cursor keys. The ruler is 
very useful for measuring parts of a 
drawing and positioning new objects. 


a 


this 


happens 


also 


and 


II 


II 


The 

brought into use by f0 after moving the 
cursor to the required position, and 3 
inputs are called for. The text input 
is limited 


faci1ity is 


ASTAAD 


text 


Another method of drawing a line, at 
an any angle, is to move to one end of 
the line and press Shift, and then move 
the cursor to the other end, and press 
Copy. To delete 
again. 


41 


characters. In 


Size 


If 


any number can be 
2 and 3 is the 

likely to be legible, 
the TV/monitor in 


to 


used, but betv^en 

smallest 
depending on 


the line, press Copy 


accuracy, 


a 
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while 125 almost fills the screen with one character. Any angle can 

be entered, positive or negative. Note that text can be underlined 
using the Shift-Copy feature or the f6 routine. Many interesting 
effects can be discovered by experiment. For example, a row of 
5 underlines" gives a useful thick line, and with 
draw a frame around your drawing. 

often needed on drawings for dimensioning and on 
leader lines pointing to objects. Function key fl draws an arrow at 
the cursor position after the direction angle has been entered. 


size 


8 you can 


si ze 


Ar rows 


triangles, 


produces 

rectangles, pentagons and other polygons to be drawn around the 
cursor. Three inputs are called for, Horizontal Axis (in g.u.). 
Vertical Axis, and Number of Sides. A few examples show the way:- 
Circle , radius 100 g.u.: 

100 <return> 100 <return> 30 <return> 


Function key 


f 2 


Ellipse: 


00 <return> 50 <return> 30 <return> 


Square , length of side 300 g.u.: 

3m5 <return> 300 <return> 4 <return> 
Regular pentagon: 

500 <return> 500 <return> 5 <return> 
Vertical line| 

<return> 82 <return> 2 <return> 


Function key f3 enables you to repeat or copy the last shape 

(produced using f2) at a new cursor position, and is useful for 
windows in houses, portholes in ships, shading with dots and angled 

lines, and so on. If a mistake is made f7 followed by f3 will delete 
the shape just drawn. 


so frequently that f9 is programmed so that 
only the radius need be entered, Radius=0 (i.e. f9 <return>) prints 
a dot, and f9 5 <return> produces a useful blob. 


Circles 


To clear an area of the screen, move the cursor to the bottom 
left hand corner and press Shift, and then move to the top right 
hand corner and press f8. This will clear the rectangular area 

defined by these two opposite corners. Reversing the two corners 
will usually clear the whole screen so be careful! If you want to 

clear the whole screen then Ctrl-L is the quickest way (i.e. 
tne CTRL key, and while holding it down, press 

used if a mistake is made in the middle of a procedure, or to move 

the cursor to the centre of the drawing area. 


It 


L"). Escape can be 


APPLICATIONS^ AND EXTENSIONS 

Now is the time to try your own drawing. The possibilities are 
legion, but here is a tip if you wish to produce a serious drawing 
rather than a sketch or doodle. Start with a sketch on paper marking 
dimensions in 
which is 1250 X 980 g.u 


Use a scale to suit the available screen area, 


g.u. 


and leave room for a title and labelling. 


* t 


may easily be added to the 

one idea, but above all, 


Other functions and 
program. A 

frequently-used symbols could be built in. We incorporated a routine 
into the program to save screen dumps on 
provide the illustrations for this article, we also included the 
facility to load a screen dump back from tape for further use by the 
ASTAAD program. If you decide to add this feature to your program, 
then we suggest that you type in and check the main program first. 


screen dump to tape is 


in order to 
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11 50IF INKEY-2 MOVE -1 0*0,-100:VDU7: Ink$ 
=GET$: V10U7: GOTOl 1 70 

1170IF Ink$="L" OSCLI("LOAD SCREEN 3000 
") ELSE IF Ink$="S" OSCLI("SAVE SCREEN 
3000 7FFF 3000") 

1180VDU7:GOTO90 


way to implement the 
save/load function is to make the error 


handling routine call your screen dump 
{or load) when Escape is 
placing the call between lines 1140 and 


this way, pressing Escape 


In 


and say CTRL will cause a dump to be 
executed, returning to the screen with 
the cursor in the central position. In 

Ctrl-Escape produces a 

from the micro. 


Once a screen display has been saved 


isplay this 


you can also 

tly, without using ASTAAD 


di 


by 


our 


typing: 

MODE0 

* LOAD SCREEN 


ing ’S’ 

will then save the current screen 

L' will 


fc 


<return> 

<return> 


display to tape while pressing 


load a new screen display from tape. In 

ooth cases the micro responds with 
second 'beep' and the screen display on 

referred by the standard name 


You will find that this gives a 
white image on a black background, the 
default colours for mode 0. If you want 

the picture displayed as black 

on white, you must 
following command after selecting mode 
and before loading the picture to the 


a 


to 


SCREEN'. 


the 


type 


in 


The additional lines that you need 
for this feature are 


follows: 


VDU19,0,7,0,0,0:VDU19,1,0,0,0,0<return> 

Tnis reverses the normal use of the 
two colours black and white in mode 0. 


PROGRAM NOTES 


PROCtext is the procedure for 

drawing any size text at any angle. It 

the 8X8 matrix for each 
character in the Electron's ROM 
(resident Read Only Memory), and moves 

the graphics cursor to points on the 

depending on the size(S%) and 
angle(Tl) required. Either PROCdot (for 
small characters less than size 5) or 


Mode 0 is used in the program for 
maximum resolution and PROCsetup, 
called at the start of the program 

the variables used and 
positions the cursor at the centre of 
the screen. *FX4,2 makes the 4 cursor 
keys and Copy generate ASCII codes, and 
*FX225,129 
produce ASCII codes 129 upwards. X% and 

the cursor co-ordinates with 
initial mid-screen values. 


initialises 


causes the function keys to 


PROCsq (for larger characters) then 
prints dots or squares to form each 
character. The procedure is wide open 
to any input and distortion occurs at 

and angles. A user who takes 


Y% are 


The main program repeatedly looks 
for keyboard input while at the same 
time maintaining the cursor on the 
screen. Whenever 
program distinguishes between normal 
ASCII codes (less than 128 in value) 
which are sent direct to the 
(these are mainly printing characters 
plus the usual control characters), and 
other inputs such as the function keys, 
cursor keys. Shift and Copy. For 
the program branches to 
corresponding procedures 
drawing routines depending on the value 
of J% (in the range 
cursor keys movements are 
routines starting at line 250. 


some si 

this procedure into his own program is 

few suitable 


well advised to select a 


a key is pressed the 


sizes and amend the spacing (the 7.6 in 
line 530) and size of square (E and F 
in line 613). 


PROCshape (lines 790-880) 
modified 
described in 


is 


a 


version of 


Fast Polygon' 
BEEBUG Vol.2 No.l, and 
are drawn (f9) by setting up 

before 


the 
1 ine 


calling 
The other procedures are 

little 


the 


parameters 


and 


PROCSHAPE. 
easy to follow, perhaps with 
aid from the User Guide. 


a 


1 to 16). All 
handled by 
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350 VDU23,1,0;0;0;0 

360 VDU19,0,7,0,0/0:VDU19,7,0,0,0,0 

370 *FX4,2 

380 *FX225,129 

390 X%=630:Y%=490:Y=5:Z=4:J%=0:k=0:B% 
=0:T%=0:j=0:Xl%=630:Yl%=490 
400 ENDPROC 
410 : 

420 DEFPROCruler 

430 IF J%<13 OR J%>18 ENDPROC 

443 IF k=l0 THEN 460 ELSE 450 

450 IF J%Oj THEN XH=X%:Y1%=Y% 

460 8%=SQR((XI%-X%)"2+(Y1%-Y%)"2) 

470 VDCJ4:3%=1 31082:PRINTTAB (60,1 )B%+1 
0-k:VDU5:j=J% 

480 ENDPROC 
490 : 

500 DEFPROCtext 
510 IF J%Ol ENDPROC 
520 VDU4,28,6,1,59,1 : INPUTTAB (6,1) "Te 
xt? "T$,"Size? (2 to 125): 
deg.)?”T%:CLS:VDU5,26 

S%*SIN(RAD(T%)):F=S%*COS(RAD(T% 


10 REM Program ASTAAD 
20 REM Version El.3 
30 REM Author Jim Tonge 
40 REM ELBUG December 1983 
50 REM Program subject to copyright 
60 : 

70 MODE 0 

80 ON ERROR GOTO 1140 
90 PROCsetup 

100 REPEAT 
110 PROCruler 

120 IF INKEY-1 THEN key=9:V=5:XI%=X%: 
Yl%=Y%:k=10:Z=4:Carol 40 

130 key=INKEY(0):IFkey<=0 THEN 290 
140 IF key<l29 PRINT CHR$(key):X%=XI+ 

20*(X%<1250)*(key<>9):GOTO120 
150 VDU7 


II 


S%,"Angle( 


530 


IT 


)) 


540 FOR C%=1 TO LEN(T$) 

550 A%=&BF00 +ASC(MID$(T$,C%,1))*8 
560 FOR P% =0TO 7:FOR Q% =0 TO 7 
570 MOVE X%+P%*E-Q%*F+C%*7.6*F,Y%-Q% 
E-P%*F+C%*7.6*E 

580 IF S%<5 THEN PROCdot ELSE PROCsq 
590 NEXT Q%,P%,C% 

600 ENDPROC 
610 : 

620 DEFPROCdot 
630 IF (2*Q% AND A%?P%)<>0 THEN PLOT6 

5,0,0 

640 ENDPROC 
653 : 

660 DEFPROCsq 

670 IF (2~Q% AND A%?P%)<>0 THEN PLOT0 
,F,E:PLOT81,(E-F)(E+F):PLOT81,F,E 
680 ENDPROC 
690 : 

700 DEFPROCarrow 

710 IF J%<>2 THEN ENDPROC 


z 


x 


*■■>> s 


p# * 








i 


1 > 






160 J%=key-128 

170 ON J% GOTO 200,180,220,240,250,25 
0,190,250,210,230,120,280,270,270,270,2 
70 ELSE 170 

180 PROCarrow:?ROCcursor 
190 PROCiine:PROCcursor 
203 PROCtext:PROCcursor 
210 PROCdelete:PROCcursor 
220 PROCpoly:PROCsnape(H%,V%,G%):PROC 
cursor 

230 PROCcircIe:PROCshape(H%,V%,G%):PR 
OCcursor 

240 PROCshape(H%,V%,G%):PROCcursor 
250 IF J%>4 AND J%<7 OR J%=8 THEN Z=J 
%-l ELSE Z=4 

260 IF J%=8 Y=7 ELSE Y=5:y=Y-4 
270 X%=X%-10*(J%=13)*(X%>10)+10*(J%=1 
4)*(X%<1263):Y%=Y%-10*(J%=15)*(Y%>13)+l 
0*(J%=16)*(Y%<990):PLOTZ,X%,Y% 

280 IF J%=12 k=0:PLOTV,Xl%,Yl%:IF V=5 
THEN V=7 ELSE V=5 
290 PROCcursor 
300 UNTIL FALSE 
310 END 
320 : 

330 DEFPROCsetup 
340 VDU5 


720 VDU4,28,6,1,59,1:INPUTTAB(6,0)"An 

W%:CLS:VDU5 


gle of arrow? 

730 a=l5*COS(RAD(W%+35)):b=l5*SIN(RAD 
(W%+35)):c=l5*COS(RAD(W%-35)):d=l 5*SIN 
(RAD(W%-35)) 

740 PLOTy,-a,-b:PLOT0,a,b:PLOTy 
:PLOT0,c,d:VDU26 

750 ENDPROC 


I! 


c,-d 


760 : 

770 DEFPROCIine 
780 IF J%<>7 THEN ENDPROC 
790 VDU4,28,6,1,59,1:INPUTTAB(6,0)"Le 
ngtn? "L%,"Angle?(deg.) "N%:CLS:VDU5 
800 LX=L%*COS(RAD(N%)):LY=L%*SIN(RAD( 
N%)):X2%=X%+LX:Y2%=Y%+LY:PLOTY,X2%,Y2%: 

X%=X2%:Y%=Y2%:VDU26 
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810 ENDPROC 
820 : 

830 DEFPRQCpoly 
840 IF J%<>3 THEN ENDPROC 
850 VDU4,28/6,1,59,1:INPUTTAB(6,0)"Ho 
rizontal Axis?"H%,"Vertical Axis?"V%,"N 
o.of sides(30=circle or ellipse)?"G%:CL 
S:VDU5,26 

860 IF G%=4 THEN H%=H%/SQR(2):V%=V%/S 
QR{2) 

870 ENDPROC 
880 : 

890 DEFPROCshape(H%,V%,G%) 

900 IF NOT(J%=3 OR J%=4 OR J%=10)THEN 

ENDPROC 

910 LOCAL I%,K%,M%,N,C,S,B,D,R,T 
920 N=2*PI/G%:C=COS{N): S=SIN(N):B=1/ 

SQR(2):D=1/SQR(2) 

930 FOR I%=1 TO G%+1 

940 R=B*C-D*S:T=B*S+D*C 

950 B=R:D=T:K%=H%*B+X%:M%=V%*D+Y% 

960 IF I%>1 THEN PLOTY,K%,M% ELSE MOV 
E K%,M% 

970 NEXTI % 

980 ENDPROC 
990 : 

1000 DEFPROCcircle 
1010 IF J%<>10 THEN ENDPROC 
1020 VDU4,28,6,1,59,1:INPUTTAB(6,0)"Ra 
dius of circle? "R%:CLS:VDU5,26 

1030 H%=R%:V%=R%:G%=30 
1040 ENDPROC 




* * 


1050 : 

1060 DEFPROCdelete 
1070 IF J%<>9 ENDPROC 


1080 VDU24,XU;YU;X%;Y%; :CLG:VDU26 


1090 ENDPROC 


1100 : 

1110 DEFPROCcursor 

11 20 PLOT4, X%, Y%+1 5: PLOT6, XI, Y%-1 5: PLO 
T 4,X%-1 5,Y%:PL0T6,X%+1 5, Y%: PLOT4,X%,Y% 

+15: PLOT 6, X %, Y %-15: PLOT 4, X % -1 5, Y %: PLOT 
6 ,X%+15,Y%:PLOT4,X%,Y% 

1130 ENDPROC 

1140 IF ERROl 7 THEN ON ERROR OFF:MODE 

ERL:END 


7:REPORT:PRINT" at line 
1160 GOTO 90 


H . 


< 


MUSICAL CHRISTM AS CARD 


by I). Chappel 


With Christmas approaching we have 
decided to include a program with a 
seasonal flavour that provides a good 
demonstration of the sound and graphics 
capabilities of your Electron. The 
program builds up an attractive 
Christmas card display on 
and then plays a rendering of "God Rest 

Merry Gentlemen". We are sure that 
you will find the results of typing in 
this relatively short program well 

Be careful when copying 
the program, particularly with the data 
statements at the end, if you don't 
want the music to be out of tune. 


r ** 


worth while. 


The progran is well structured and 
you should have no difficulty in 
identifying the various parts from the 

procedure names. The holly leaves and 

drawn using graphics 

commands while the candles and the 
flickering flames are drawn with user 


defined 


flicKering 

is achieved by randomly 
switching the flames between several 

different versions defined at the start 


characters. 


berries 


of the program. The music is held as a 

of numbers in data statements 
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490 VDU23,230,&7EFE;&3E7E;&1C3C;&1818; 
500 VDU23,231,&800;&C08;&1E0C;&3F3F; 
510 VDU23,232,&7E7F;&7C7E;&383C;&1818; 

520 VDU23,233,&1808;&3C18;&7C3C;6,FE7E; 
530 VDU23,234,&FFFF;&FFFF;&3E7F;&181C; 

540 ENDPROC 

550 : 

560 DEF PROCholly(X%,Y%, E%, F%, R) 

570 VI)U29,X%;Y%;:GCOL0,3:L%=8 
580 MOVE0,0:MOVE0.9*E%,0 
590 FORA=0TO6.4STEP0.2 
600 MOVE0,0 

610 X%=E%*COS(A)-R*E%/L%*COS(A*L%) 

620 Y%=F%*SIN(A)+1.04/R*F%/L%*SIN(A*L 


which ace used as the parameters for 
sound frequency/ volume and duration in 
tile procedure PROCmusic. Once started 
the music will continue indefinitely 


until you press Escape or Break. 


ft ’* • ** «’» ft J #"*"■* « * "ft « ft * ft ft « 

« «. H * 9 ? * * * ■ m m a, ft j i ■ m m u ft <ft * * ■ # * * m * ft ft * 


■m m ft * ■ *,*.«_*, 

«■*•*« «#* ■ ft 

■ ftfti*#B'*ft> 


■ ft t 


* ■ * * ft * * * ft * ft # ft * * ■ * * * m ft 

m * i- # * ■ * * **■■■*##• • ■ ■ 


ft ft ft 


10 REM Program 

20 REM Version 
30 REM Author 
40 REM ELBUG 
50 REM Program subject to Copyright 
60 : 

70 ON ERROR GOTO250 
80 M0DE1 
90 PROCsetup 
1 00 PROCgreeting 

110 PROCholly(1000,950,140,50,0.8) 

120 PROCholly(1200,820,60,100,1.3) 

130 PROCberry(1050,880,24) 

140 PROCberry(1100,850,24) 

150 PROCberry(1040,825,20) 

160 COLOURl:PROCcandles 
170 COLOUR3:PROCbase 
180 COLOUR2 
190 REPEAT 

200 PROCf1icker(RND(7)) 

210 PROGrnjsic 
220 UNTIL Newyear 
230 END 
240 : 

250 ON ERROR OFF 
260 MODE6 

270 IF ERR017 REPORT:PRINT 1 ' at line 
; ERL 
280 END 
290 : 

300 DEF PROCsetup 

310 DIMF$(5),Q%{35),R%(35),S(7),C(7) 
320 PROCchars:Newyear=FALSE 
330 FORI%=lTOS:F$(1%)=CHR$(223+I%*2)+ 
CHR$(10)+CHR$(8)+CHR$(224+I%*2):NEXT 
340 VDU19,3,2,0,0,0:VDU23,1,0;0;0;0;0 
350 ENDPROC 
360 : 

370 DEF PROCgreeting 
380 COLOUR3: PR INTTAB (1 8,5) "Happy":COL 
OURl:PRINTTAB(20,9) "Christmas 

390 COLOUR3:PRINTTAB(23,13)"From":COL 
OURl:PRINTTAB(28,17)"ELBUG 

400 ENDPROC 
410 : 

420 DEF PROCchars 
430 VDU23,224,&FFFF;&FFFF;&FFFF;&FFFF 


CANDLES 

E0.4 

D.CHAPPEL 
December 1983 


%) 


630 PLOT85,X%,Y%:NEXT 
640 ENDPROC 
650 : 

660 DEF PROCberry(X%,Y%,B%) 

670 GCOL0,1:VDU29,X%;Y%; 

680 FORA=0TO6.5 STEP0.5 
690 MOVE0,0:MOVEE *1.2*SINA,B%*COSA 
700 PL0T85,B%*1.2*SIN(A+0.5),B%*COS(A 
+0.5) 

710 NEXT:ENDPROC 

720 : 

730 DEF PROCcandles 
740 FORY%-30TO10STEP-1 
750 Xl=0:REPEAT:X%=X%+5 
760 PRINTTAB(X%,Y%)CHR$(224) 

770 UNTILX%DIV5=(Y%-7)DIV3:NEXT 
780 ENDPROC 
790 : 

800 DEF PROCbase 

810 F0RX%=1T038:PRINTTAB{X%,31)CHR$(2 
24);:NEXT 
820 ENDPROC 

830 : 

840 DEF PROOmusic 

850 IFADVAL(-6)<3 ENDPROC 

860 READP%,D% 

870 IFD%=“1 RESTORE:SOUND!,0,0,30:END 


11 * 


PROC 


880 SOUND!,-10,P%,D% 

890 ENDPROC 
900 : 

910 DEF PROCflicker(K%) 

920 PRINTTAB(K%*5,5+K%*3)F$(RND(5)) 
930 ENDPROC 
940 : 

950 REM SOUND DATA 

960 DATA117,7,117,7,145,7,145,7,137,7 
,129,7,125,7,117,7 

970 DATA!09,7,117,7,125,7,129,7,137,7 
,145,21 

980 DATA! 17,7,117,7,145,7,145,7,137,7 
,129,7,125,7,117,7 

990 DATA!09,7,117,7,125,7,129,7,137,7 
,145,21 


It 


tl 


F; 


440 VDU23,225,&0;&2020;&3030;&7870; 

450 VDU23,226,&FCF8;&7CFC;&3C7C;&1818; 
460 VDU23,227,&0;&0404;&0C0C;&1E0E; 

470 VDU23,228,&3F1F;&3E3F;&3C3E;&1818; 
480 VDU23,229,&1000;&3010;&7830;&FCFC; 
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1000 IDATA145,7,149,7,137,7,145, 


,149, 


I \32i3 DATA!29,7,137,7,145,14,149,7,145, 
7,145,7,137,7,129,7,125,7,117,14,129,4, 

125,4,117,7 

1030 DATA137,7,137,7,129,7,137,7,145,7 
,149,7,157,7,165,7,145,7,137,7,129,7,12 

5,7,117,21,0,-1 


/ 


/ 


,157,7,165,7,145,7 
1310 UATAl37,7,129, 
,137,7,137,7 


-7 


,117,7,125,7,129,7 




contd. from page 7 

1970 IF NOT on THEN PRINT"it’s already 
offENDPROC 
1983 PRINT"O.K. 

1990 on=FALSE 
2000 ENDPROC 

2310: 

2020 DEF PROCdrop 

2G10 IF itempos(thingno)<>0 THEN PRINT 
But you haven’t got that.":ENDPROC 
2040 itempos{thingno)=position 
2050 PRINT"0.K. 

2060 carried=carried-l 
2070 ENDPROC 
2083: 

2090 DEE PROCki11 

2133 IF i tempos (thing no) Opos it ion THE 
N PkINT"I don't see that hereENDPROC 
2110 IF thingno=5 THEN PROCki1lgremlin 
:ENDPROC 

2120 IF thingno=6 THEN PROCki1lpixie:E 
MDPROC 


2190 PRINT''You fight the gremlin bare 
handed,but only succeed in getting kill 


II 


eci, 


11 


2200 dead=TRUE 
2210 ENDPROC 

2220 : 

2213 DEF PROCki llpixie 
2240 IF itempos(4)=0 THEN PRIN 
row your hammer at the pixie.. 

1":itempos(6) 

2250 IF itempos(3)=0 THEN PRlNT"You si 
ash your knife at the pixie but it dodg 
es.":ENDPROC 

2260 PRINT"You fight the pixie bar 
nded but 

ought.You get killed. 

2270 dead^TRUE 
2280 ENDPROC 

2290: 

2300 DEF PROCfinish 
2310 PRINT 
2320 PRINT 

2333 IF won THEN PRINT 
tionsl!1 

2340 IF dead THEN PRINT 

You lost!!!":score=0 
2353 PRINT 
2363 PRINT 
2370 PRINT 


r ill 


i You th 
. .A hit 
1 : score ; =score+10: ENDPROC 


II 


• * 


II 


ha 


it is stronger than you th 


II 


2130 PRINT"You're joking!" 

2140 ENDPROC 

2150 

2160 DEF PROCKiUgremlin 
2170 IF itempos(3)=0 THEN PRINf'You si 
ash your knife at the gremlin and kill 

:itempos(5) 


it 


Congratula 


11 


You won!!! 


>11 


Bad Luck! 


i i 


it easily. 


tv 


You took moves;" moves 


0: ENDPROC 


II 


2180 IF itempos(4)=0 THEN PRINT"You th 

row your banner at the gremlin,but it c 
atches it and throws it back.":ENDPROC 


11 


and your final score was 


2380 PRINT" 


. II It 


II - 


2390 ENDPROC 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 






SAVING MEMORY 


If you often need to use strings in a program, then watch out tor your memory, as 
the Electron will eat up available memory quickly. The reason is that whenever you 

a string variable, the Electron compares it to the previous vaiue, and 
the new value is longer, it resaves the string again, without clearing the previous 
value. If, however, the new value is shorter, the old value will be overwritten. 

in the first lines of your programs, before you use any strings that are 

reassigned during a program, work out the maximum length a string is 

slightly larger than required: 

, then use the fol lowing 


if 


re-assign 


Therefore, 
lively 

likely to be, and define it as a 
e.g. suppose the maximum length of A$ is to be 25 characters 
definition: A$ : =STRING$ (26, 


to 


string of spaces 


II M 


) - 


* 4 


#**•** fc * * * * ® 

44 *4*4*44*4 * I 


* • m 


m ■ ■»**« 4 t * 4 ft # 4 >4 4 * 4 4 


* * ■*#*##• *> 4 * ■ 

p * p * ■ -a ■ «**** 


4 1 + 444 


■ A * ii * # * 4- -■ * * * * ■■ -f * » 

V ft * ■ m m * ft * 4 4 m # 4' 4 4 4 


*4**4* 


*1 4 ft ft ft ft ft ft ■ 


* ■ * 4 


* # 
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HOW TO WRITE A COMPUTER GAME (Part 1) 


by Mike W illiams 


Typing in computer games from printed listings can be a useful way to pick up 

programming ideas that you can use in your own programs. Here we go one better, and 
show you how to design and write a simple game, explaining each step of the way. The 
game is called 


II 


Santa 1 s 


a full listing appears elsewhere in this 


aim is to write a 

program that will play this game. One 
way of writing a good program is to 
start off with something very simple, 
probably little more than a 
procedure calls 

virtually non existent at this stage), 

and then progressively 

until the 


and readable 


Clearly not all games programs will 
be the same, but the task of putting 
together a games program, indeed almost 

involves a similar 

of course, many 
can read about 


any program, 
approach. 

books that you 


There are, 


(and these will 


be 


in Basic, and several that 


programming 


add more and 


are specific to the Electron (see 


our 

Book reviews in this issue of ELBUG). 
You can learn a lot in this way and 
indeed write good programs as a result. 
Nevertheless, 
instructive to 


more 
complete. 

this 


program 

One significant advantage of 

that 


is 


approach 

continually test the program 
develop it rather than keep all the 

testing till the end. You 
better what I mean when we actually get 


is 


we 


can 


we 


it 


very 

how someone else 


can 


w ill se e 


designs 


develops 

program. This is what I am going to do 
here, writing a camplete games program, 
starting from the very beginning, and 
explaining all the steps along the way. 
I hope that you will find this both 
helpful and enjoyable, and that you 
will discover techniques tha 
subsequently incorporate into your own 

programs. 


and 


computer 


a 


you can 


the 


First of all, I 

itself. Of course, you won't 


game 


a precise idea of how 


necessarily hav 


the game will finally 
ideas often occur as you are developing 
the program. The 
remembering that it is a game for 

Christmas, is as follows. A number of 
houses will be drawn across the bottom 


new 


this 


game, 


As with most programs, 
decide what mode we are going to use. 
This in turn depends on how many 
colours we want to use, what size text 
and now much menory is available. The 
amount of memory is a fairly fixed 
quantity but modes 3 and under use 20k 
leaving room only for fairly small 
programs, while modes 4 and over only 
use 10k of memory leaving room for much 
larger programs. We will use mode 2, at 

as this gives us 
the maximum number of colours to use. 


to 


each house having a 
chimney. The chimneys will be of 

Parcels, which will 
also be of various sizes, will move 


of the 


different sizes. 


across the screen from right to 


left. 


Our job as player, will be to hit some 

that the 


key on the keyboard, 

parcel drops through a chimney into the 
house below. If we are succesful, then 


our score will increase, while if the 
parcel misses the chimney, then our 

will be reduced. The game 

20 parcels have 


start with. 


until, 


con tin ues 

missed, falling to the ground below. 


Now some first thoughts about the 
graphics. We 

Electron graphics in the first issue of 


a series about 


That is the rough outline of the 
game, which is sufficient for now. Our 
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EL8UG and you are strongly recommended 

to read 

yet very familiar with the 
graphics on the Electron. You will also 
find it helpful to refer to the book by 
Masoud Yazdani (part of your Electron 
pack), particularly on the use of MOVE, 
DRAW and PLOT. We shall use these line 


steps, which I have bundled together at 

the moment as PROCplay (mostly because 
I'm not sure what the steps will be in 
detail yet), until the variable 

true. 

initially false and that it is 
true when our 
game then ends, though we might decide 
later to add an option to start a new 
game, keeping a record of highest 


these articles if you are not 


use of 


We assume that overI is 


to 


20 misses are up. The 


drawing instructions to draw the houses 

relatively large 


they 

structures, but 
best as user defined characters. They 
are relatively small and being single 
cnaracters we can then move across and 
down the screen as we wish. We have now 
decided enough to write a skeleton 
program as follows: 


wi 11 be 


It is useful, 

start defining the various procedures, 
though the definitions as you will 
do very little. We will also include a 
line in PRQCsetup to 


even at this stage, to 


initialise 


over£'. Here are the procedures: 


100 MODE 2 
110 PROCsetup 

120 PROCfrontpage 
130 PROCchars 

140 PROChouses 

150: 

160 REPEAT 

170 PROCplay 
180 UNTIL over% 
190 END 


1000 DEF PROCsetup 
1310 over%=FALSE 
1090 ENDPROC 
1099: 

1100 DEF PROCfrontpage 
1190 ENDPROC 

1199: 

1200 DEF PROCchars 
1290 ENDPROC 

1299: 

1300 DEF PROChouses 
1390 ENDPROC 

1399: 

1400 DEF PROCplay 
1490 ENDPROC 


earlier. 


the program 

consists almost entirely of calls to 
procedures that have yet to be written. 
Indeed we probably have only a vague 
idea at the moment of what they should 

that doesn't 


sa id 


As I 


but 


contain anyway, 
matter. 

program cannot 
procedure and is 
first 


I have started numbering the procedures 
from line 1000 and I have left gaps for 
the insertion of more instructions 

later. 


the mode for the 

be put inside a 
usually one of the 


s ta temen t s 
PROCfrontpage will display some kind of 
title page and details of how to play 
the game. PROCchars will define all the 
user defined characters that we shall 


m 


a 


program. 


said, 


this isn't yet very 


As I 


exciting as most of these procedures do 


nothing at all. However, if you have 
typed everything into your Electron and 
you now run the program 

will be produced {that is if 
you haven't made any typing mistakes). 
The 


use, while PROCsetup will do most of 
the other humdrum things, like setting 
initial values for any variables, that 
need to be done at the beginning of 
most 


no error 


procedure 

PROChouses, will draw the houses across 
the bottom of the screen ready for the 


The 


programs. 


M0DE2 instruction at the start of the 
program, and then nothing further will 

The program is repeatedly 
calling PROCplay which also does 
nothing as yet. 


start of the game. 


The line with the colon (:) is there 
simply to provide visual separation 

between the two parts of the program 
and is a useful trick for producing a 

more readable program. 


Now this may all seem rather 
pointless at the moment. Here we are 
putting all this effort into typing a 
program into the micro and when we run 
it nothing happens; and nothing goes 
wrong with it either! Knowing that this 


The game 
repeatedly going through a 


then consists of 
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enable each house to have a different 
size chimney, as in the description of 
our game. You will also notice that I 
am using integer variables (those 
followed by %) as these use less memory 

and 

User Guide page 47 for more information 
on this). The procedure PROChouse is 
defined as follows: 


framework contains no programming 

we can now build up the various 

procedures one by one, testing each one 

Let's start with 

the front page. We'll just make this 
display a title on the screen for now. 
Add the following lines to your 
program: 


errors, 


by itself as we do so. 


result in faster programs (see the 


1110 COLOUR 1 

1120 PRINT TAB(6,2)"SANTA'S 
1130 PRINT TAB(6,6)"PARCELS" 

1140 COLOUR 2 
1150 PRINT TAB(3,20)"Press any key. 

1160 G!=GET:CLS 


II 


1500 DBF PROChouse(X%,Y%,size%,colour%) 

1510 GCOL0,colour! 

1520 MOVE X%,Y%:PLOT 1,0,128 
1530 PLOT 1,96,96:PLOT 1,0,20 
1540 PLOT 1,96-16*size%,0 
1550 PLOT l,0,16*size%-116 
1560 MOVE X%+96,Y%+224 
1570 PLOT 1,96,-96:PLOT 1,0,-128 
1580 ENDPROC 


Tl 


We can immediately test whether this 
works correctly by simply running the 
program. It should now display the text 
in the above instructions 

The TAB statements in lines 


the 


on 


understand 


help 


To 


you 

instructions I have drawn out trie house 


1120 and 1130 define whereabouts on the 
screen the text is to be displayed. At 
line 1060 the program waits for any key 

to be pressed, it doesn't matter which, 
before continuing. If your version 
doesn't ’work correctly, then check it 
very carefully before continuing. The 
whole point of this approach is that W 2 

develop the program in 

each new addition, so that we 
have a correctly working 


with the dimensions below. In mode 2 


each character has a width equvalent to 
64, and a height equivalent to 32, in 

we shall be 

our own characters for use in 

the 


graphics terms, 
defining 
this program, 
dimensions 


keDt 

of the house mostly in 
multiples of 32 to assist in lining up 
parcels with chimneys later on. This 

didn’t all happen just like that, but 
was the result of sane experimenting 

both on paper and on the screen. 


I 


nave 


small steps, 


testing 


a 1 wa y s 


program. 


The next step, I think, is to write 
the instructions to draw the houses. We 
have already decided that the procedure 
PROCnouses will display all the houses 
on the screen. However it seems like a 

good idea to 
procedure, which we 
PROChouse, to draw just a single house, 
and then PROChouses can call this to 
position each house where we want it. 
This approach has two particular 
advantages. It breaks the whole task 
down into two smaller tasks and ensures 
that the houses will all be drawn 
exactly the same because they will all 
be drawn by the same procedure. 


define 


a further 
will call 


To make the procedure PROChouse 
really useful we will give it four 
parameters (check the Electron User 
Guide page 81 if you're not sure about 
parameters in procedures). The first 
two will be the position of the house 
on the screen as graphics co-ordinates 
(X%,Y%) followed by the size 
and the colour (colour!). The size will 


The starting point is the bottom 
left hand corner so we set the colour 
for the house using the GCQL command 
(line 1510) and then move to this 
position. The simplest way of drawing 
lines on the screen will often seem to 
be the DRAW command, but it is worth 
looking at some of the alternatives 


(size!) 
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procedure in isolation from the rest of 
the program, but if you try this with 
your own 

it probably won't work if the procedure 
refers to anything 
program. Here there is no such problem. 


using PLOT instead. If 
1, x ,y then x and 

to draw, horizontally and 
vertically, from the present position, 
rather than the new co-ordinates. Using 
this instruction means that what we 
write for x and y in the program is 
simpler than would have been the 
if we had used DRAW, For example, the 
PLOT instruction in line 1520 means 
draw a line such that we move 0 units 
horizontally and 128 units vertically. 

To achieve the same result using DRAW 
would require us to write: 

DRAW X!,Y!+l28 

Although the difference is small, 
overall I believe it to be worthwhile. 


PLOT 


programs be careful, because 


in 


your 


Now that we have a procedure to draw 
a house, we can complete the writing of 
the procedure PRQCnouses to draw all 

three houses on 
additional lines for our program are as 

follows: 


the 


The 


1310 FOR colour%=l TO 3 
1320 PROChouse(384*colour%-320,100,colo 
ur%,colour!) 

1330 NEXT colour! 

1340 GCOL0,7:MOVE 0,0:MOVE 0,100 
1350 PLOT85,1280,0:PLOT85,1283,100 


The other point requiring some 

the chimney size. I 
tnat chimneys would be of size 

widths 
graphics 

dimensions and I then worked out a 

formula to do this as follows. If the 
variable is size! 


explanation is 
decided 

1, 2, 3, 4 etc corresponding to 

80, 64, 48, 32" 


of 


in 


lines above use a 
FOR-NEXT loop to draw three houses 


first 


three 


The 


the 


red, green and 


(as in 


this case) 


in 


yellow and the last two lines 
triangle fill command (PLOT85,x,y) to 
paint 

underneath the houses. Notice how the 


use the 


then the formula has to be a*size%+b 
where 'a 1 and 'o' are two numbers that 
we now have to find. TO do this we use 

is 1 the 


layer of 


white 


snow' 


a 


that when 

answer should be 80, and that when 
size! is 2 the answer should be 64 


the fact 


value of colour! is used to control the 
position, colour and size of chimney 
for each of these houses. You should 
now be able to run the program, and 

the title has been displayed, 
pressing any key should result in the 
three houses being displayed. If tnis 
doesn't happen then do check the 

PROChouse and PROCho uses 


for 


a + b 
2*a + b 


80 


64 


E’rom this we can quickly see that 'a 
must be -16 and hence 'o' must be 96. 
In line 1550 we move downwards and by 
20 more than the width of the chimney 
giving the revised formula used tnere. 
This kind of technique occurs quite 
often in programs where we want one 
series of numbers to produce a rather 


very carefully. 


Unfortunately, that’s all 

for this month. I have tried to 


have 


describe everything I have done with 
this program at some length, and as a 
consequence the text of this article 

up far more space than even the 

full program. If you feel I have made 
everything too simple, remember that 
there are many Electron owners who 
just starting. Next month we will 
complete our game by adding the moving 

parcels and 
manage to add a few interesting sounds 
as well. For those of you who just 
can't wait, we have published the 

program elsewhere in this issue 


different but related series. 


We haven't fully linked this 
procedure into our program yet, but we 

it in immediate mode. After 


can 

enetering the new procedure, just type: 

MODE 2 <return> 


PROChouse(100,100,1,2) <return> 
and you should 

displayed 

different numbers you should be able to 
display a house of any colour, anywhere 
on the screen, and vary the size of the 
chimney as well. Inmediate mode can be 
quite 


a green house 


We might even 


screen. By using 


on the 


scoring. 


entire 


of the magazine. 


useful way of testing a 


a 
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ROBOT ATTACK 


by Edward Hun^ 


This month we present an excellent arcade style game for your entertainment. Like 
many games, this is addictive with its fascinating mixture of speed and guile. 


This program is an implementation of 

zombies game, which has 
been written for many computers. You 
control a man who is chased by a number 
of robots. You must dodge the robots, 

and at the same time lure them into 
variously placed mines which explode 
destroying the robot. You must also 
keep well clear of the swift and 
purposeful Marvin. From time to time he 
will burst through the bars of his cage 

but 


the classic 


you do get 


to pursue you 
warning 

screen-surround will flash if 


a 


the cage bars and 

this is 


imminent. If 


robots collide then 


two 


they are transported through hyperspace 
to re-appear elsewhere. ROBOT ATTACK is 
pleasantly fast and fun to play, 

nice balance of dextrous 
strategy. The game has a 

optional extras 

a high 

instructions and so on. 


* 








£ 


requiring a 
skill and 
number of 

sound on/off option 
table, 




¥ 




a 




The program is entirely in Basic. 

The single CALL command is for OSWORD 
call zero to input the player's name. Ibis technique is extremely useful as INPUT is 
rather unsatisfactory for this purpose, allowing any character to be typed. It is 
also much shorter than trying to write a Basic routi 
The relevant lines are 2730 

set up to allow a maximum of 20 characters, each in the range ASCII 32 to 128. 

Robot Attack 

E0.1 
E.Hung 

December 1983 
Subject to copyright 


to input a line in this way. 
2730 which produce a string N$. The control block is 


10 REM Program 
20 REM Version 
30 REM Author 
40 REM ELBUG 

50 REM Program 
60 : 

100 PROCsetup 
110 ON ERROR GOTO 2990 


120 M0DE6:PROCtitle 
130 REPEAT 
140 MODES 


150 SP%*SP%-50 


160 PROCobstacles 


170 REPEAT 
180 I%=I%+1 
190 PROCcowboy 
200 PROCrobot 


210 IF GKL%=1 AND GA%=1 AND DD%=0 AND 


RND(1)>.3 PROCmarvin 

220 IF I%>4 I %=0 
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230 IF S%>=OS% 0S%=0S%+1500:LV%=LV%+1 
:PROClv:IF SND%=1 SOUNDl,1,100,1 
240 UNTIL DP%=5 OR DD%=1 
250 IF DD%=0 SH%=SH%+1:DP%=0:GOTO150 
260 LV%=LV%-1:DD%=0:IF LV%>0 GOTO160 

270 PROCdelay(3500) 

280 PROCscore:PROCreset:PRQCdisplaysc 


1300 VDU23,229,0,6,30,62,30;0; 
1310 DIMX% (5) ,Y% (5) ,S% (10) ,N$ (1 0) 


1320 SND%=1:*FX4,1 


1330 PROCscinit 


1340 PROCreset 
1350 ENDPROC 
1360 : 


290 UNTIL FALSE 
300 END 
310 : 


1000 DEF PROCtitie 
1010 VDU31,12,8:PRINT"ROBOT ATTACK 

1020 PRINT *TAB(11);"By Edward Hung 


II 


111 I 


Do you wish to be briefed on the missi 


II 


on TAB(12);"PRESS Y OR N 
1030 A$=GET$:IF A$“"Y 
IF A$0 ,, N" THEN1030 
1040 ENDPROC 


. it 


li 


II 


PROCrules ELSE 


1060 DEF PROCrules 

1070 VDU12,31,5,1:PRINT"ROBOT ATTACK I 
NTRUCTIONS" 

1080 PRINT 

ivor of the 

eing pursued 

1090 FOR T%=1T013:READ A,A$:PRINTTAB(A 
)A$:NEXT 

1100 PRINT‘TAB(3)"SPACE BAR TO HYPERSP 

TAB(10);"ANY KEY TO START 
1110 DATA0,"by a hostile group of Bolo 
Bolo Robots,", 1,"whose only orders are 
to kill you by",13,"ramming you.",2,"0 
ccasionally, Mean MARVIN, King of",4 
Boloans appears to help them.",2,"You m 
ust kill them by luring them 
1120 DATA2,"onto mines which you yours 
elf must",13,"not walk onto.",3,"C0NTR0 
LS:",16,"Z - 
- UP”, 16/7 

1130 *FX15,0 
1140 A=GET 
1150 ENDPROC 
1160 : 

1170 DEF PROCsetup 

1180 ENVEL0PB1,1,0,0,0,0,0,0,126,0,0, 
126,126,126 

1190 VDU23,250,8,28,9,30,40,8,20,20 
1200 VDU23,251,16,56,144,120,20,16,40 


I If 


You are the last surv 


1370 DEF PROCscinit 

1380 FOR I%=1TO10:S%(1%)=550-1%*50:N$( 

I%)="Tne Robots of Zaexon":NEXT 
1390 ENDPROC 
1400 : 

1410 DEF PROClv 

1420 VDU17,3,31,1,31:PRINT SPC(14);TAB 
{1,31)STRINGS(LVI-1,CHR$253); 

1430 ENDPROC 
1440 : 

1450 DEF PROCreset 


You are b 


Human Race 


If 


it 


ACE"' ' ' 


T! 


3:SC%=0:OS%*1500:SP%=400:SH =1 


o 


~o 


M 


:LV%=3 
1470 ENDPROC 

1480 : 

1490 DEF PROCrndl 

1500 A%=RND(18):B%=RND(25)+4 

1510 ENDPROC 

1 520 : 

1530 DEF PR0Crnd2 

1540 X%(1%) =RND (18): Y% (I %) =RND(25) +4 
1550 ENDPROC 
1560 : 

1570 DEF PR0Crnd3 
1580 X%=RND(18):Y%=RND(25)+4 
1590 ENDPROC 
1600 : 

1610 DEF PROCobstacIes 
1620 VDU23,1,0;0;0;0;:VDU28,1,29,18,3: 
VDU12:VDU26:VDU19,15,2;0; 

1630 QCOL0,3:MOVE60,60:DRAWl219,60:DRA 
Wl219,930:DRAW60,930:DRAW60,60:FOR I%=5 
76TO704STEP 3 3:MOVE I i ,926: DRAWl %,866:NEX 

T:DRAW576,866 

1640 FOR TI=1T015:VDUl7,1,31,RND(18),R 
ND(24)+5,254:NEXT 
1650 FOR 11=1T05 


O. 


0 


r -o 


II 


II 


If 


16/': 


LEFT 
- DOWN 


16 


X 


RIGHT 


/ 


II 


40 


1 210 VDU23 
1220 VDU23,253,24,16,124,186,186,16,40 


24,24,60,90,90,16,16,24 


40 


1230 VDU23,254;24,60,60,60,60,24; 
1240 VDU23,255;146,84;198;84,146 
1250 VDU23,224,160,84,184,16,8,5,2; 
1260 VDU23,225;0;0,9,81,127; 

1270 VDU23,226,5,42,29,16,32,192,64; 
1280 VDU23,227;0;0,72,69,127; 

1290 VDU23,228,1 ,1 ,1 ,1 ,1 ,1,1,1 


* 
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1660 REPEAT PROCrnd2:UNTIL FNpoint=0 

1670 VDU17,6,31,X%(I%),Y%(I%),252:NEX? 

1680 VDU5,18,0,2,25,4,576;1024-4*32;25 
3,4,17,5,31,5,0 

1690 PRINT M HISCORE ";S%(1)TAB(6,1)"SCO 
RE ";S% 

1700 I%=0:DD%=0:GKL%=-1:DP%=0:D%=250:G 
A%=0:FL%=0:C%=0 

1710 PROClv 

1720 LE%=SH%MOD5 

1730 IF SH%/5=SH%DIV5 LE%=5 

1740 IF LE%=1 VDU4:PRINT TAB(14,31);SP 
C(4); 

1750 VDU5,18,0,1,25,4,(18-LE%)*64;1024 
-31*32; 

1760 IF SH%>30 SH%=1 

1770 IF SH%<31 A=7: IF SH%<26 A=6:IF SH 
%<21 A=5:IF SH%<16 A=2:IF SH%<11 A=4:IF 

SH%<6 A=1 

1780 GCOL0,A:PRINTSTRING$(LE%,CHR$(229 


2080 X%(1%)=X%(1%)+(X%(I%)>A%)-(X%(1%) 


<A%) 


2090 Y%(I%)=Y%(I%)+(Y%(1%)>B%)-(Y%(I%) 

<B%) 

2100 IF FNpoint=6 OR FNpoint=2 REPEAT 
PROCrnd2:UNTIL FNpoint=0:IF SND%=1 SOUN 
□1,2,50,10 


)) 


1 790 GCOL0,3:MOVE {1 8-LE%) *64,1 024-31 *3 

2:PRINT TAB(18-LE%,31)STRINGS(LE%,CHR$( 
228)) 

1800 REPEAT PROCrnd1:UNTIL FNpnt(A%,B% 


2110 IF FNpoint^l PROCpit(OX%,OY%,X%(I 
%),Y%(1%)):X%(I%)=0:Y%(1%)-0:DP%=DP%+1: 

PROGms(10) : END PROC 

2123 IF FNpoint=3 PROCdead:DD%=1:ENDPR 


)-0 


1810 a%=A%:b%=B% 

1820 VDU4,17,3,31,A%,B%,250 
1830 FOR T%=1TO!0000:NEXT 
1840 VDUl7,3,31,A%,B%,250 
1850 ENDPROC 
1860 : 

1870 DEF PROCcowboy 
1880 IF INKEY-98 A%=A%-1:F%=1:D%=251 
1890 IF INKEY-67 A%=A%+1:F%=1:D%=250 
1900 IF INKEY-105 B%=B%+1:F%=1 
1910 IF INKEY-73 B%=B%-1:F%=1 
1923 IF INKEY-99 H%=1:F%=1:REPEAT PRO 
Crndl: UNTIL FNpnt (A%,B%) 06 AND FNpnt (A 
%,B%)02: IF SND%=1 THEN S0UND17,2,50,1 0 
1930 IF F%=0 ENDPROC 

1940 A%=A%+(A%>18)-(A%<1):B%=B%+(B%>29 

)-(B%<3) 

1950 IF FNpnt(A%,B%)=1 PROCpit(a%,b%,A 
%,B%) :DD%=1 :ENDPROC 
1960 IF FNpnt(A%,B%) -6 OR FNpnt(A%,B%) 

=2 PROCdead:DD%=l:ENDPROC 
1970 IF FNpnt(A%,B%)<>0 A%=a%:B%=b%:EN 
DPROC 

1980 PRINT TAB(a%,b%)CHR$32:IF H%=1H%= 
0:PROCdelay(700) 

1990 VDUl7,3,31,A%,B%,D% 

2000 a%=A%:b%=B%:F%=0 
2010 FOR T%=3T0(SPl/50):NEXT 

2020 ENDPROC 
2030 : 

2040 DEF PROCrobot 

2050 IF DD%=1 ENDPROC 

2060 IF X%(I%)=0 AND Y%(1%)=0 ENDPROC 

2070 OX%=X%(I%):0Y%=Y%(I%) 


OC 


2130 IF FNpoint<>0 Y%(U)=Y%(I%)+2 
2140 FOR T%=0TO(SP£/50):NEXT 
2150 IF SND%=1 SOUND3,-15,10,1 
2160 PRINTTAB(OX%,OY%);SPC(1):VDUl7,6, 

31,X%(1%),Y%(1%),252 
2170 IF RND (1)>0.95 At© FL%=0:GKL%=-GK 
L%:C%=GKL%:IF GKL%=1 X%=9:Y%=5:FL%=1:J% 
=0:GA%=0:VDUl9,1 5,14; 0;: IF SND%=1 SOUND 

1,-15,50,1 

2180 IF C%=-1 VDU5,18,3,2,25,4,9*64;10 
24-4*32;253,4:PRINTTAB(X%,Y%)SPC(1):C%= 
0:IF SNDI=1 S0UND1,-15,200,1 
2190 IF FL%= ; 1 J%=J%+1: IF J%=1 0 VDU5,18 
,3,2,25,4,9*64;1024-4*32;253,4,19,15,2; 
0;:FL%=0:GA%=1:IF SND%=1 SOUNDl,-15,200 


,1 


2200 ENDPROC 
2210 : 

2220 DEF PROCmarvin 
2230 XX%=X%:YYI=Y% 

2240 X%=X%+(X%>A%)-(X%<A%):Y%=Y%+(Y%>B 
%)-(Y%<B%) 

2250 IF FNpnt(X%,Y%)=15 Y%=Y%+2 
2260 IF FNpnt(X%,Y%)-1 PROCpit(XX%,YY$ 
,X%,Y%):X%=0:Y%=0:GKL%=-1:VDU5,18,3,2,2 

5,4,576;1024-4*32;253,4:PROGns(100):END 
PROC 

2270 IF FNpnt(X%,Y%)=3 PROCdead:DD%=1: 
ENDPROC 

2280 IF FNpnt(X%,Y%)=6 REPEATPROCrnd3: 
UNTIL FNpnt(X%,Y%)=0:IF SND%=1 SOUND3,2 

,50,10 
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2290 IF SND%=1 S0UND2,3,50,1 
2300 PRINTTAB(XX%,YY%) ;SPC(1) :VDU17,2 
31,X%,Y%, 253 
2310 ENDPROC 
2320 : 

2330 DEF PROCpit(a,b,A,B) 

2340 PRINTTAB(a,b) 

2350 IF SND%=1 SOUND0,1,5,1 

2360 VDUl 7,3,31,A,B,255:FOR L=lTO500:N 

EXT:PRINTTAB(A,B);SPC(1) 

2370 ENDPROC 

2380 : 

2390 DEF PROCdead 


2720 VDU31,0,20; 1 7,3 


4=1 28 

2750 CALL&FFF1 


it M 


2780 : 


2800 VDU22,4,23,1;1;0;0;0,19,3,0;0 


PR 


INTTAB(15)"Highscores 


u i i 


:VDUl9,1,3;0;17 




2810 FOR I%=1 TOl 0: IF I%=10AA$ 


Mit 


2400 IF D%=250 D%=224 ELSE D%=226 


I! 


s 


2410 VDU17,3,31,a%,b%,D%:FOR L=1TO500: 

NEXT:VDU31,a%,b%,D%+l 
2420 IF SND%=1 SOUND0,1,5,1 
2430 PROCdelay(700) 

2440 IF SND%=1 FOR Q%=1T05:F0R L%=255T 
02 00STEP-1:SOUND17,-15,L%,1:NEXT 
2450 IF SND%=0 PROCdelay(2000) 

2460 ENDPROC 
2470 : 

2480 DEF PROCdelay(T%) 

2490 FOR T=1TOT%:NEXT 
2500 ENDPROC 

2510 : 

2520 DEF PROCms(S) 

2530 S%=S%+S:VDUl7,2,31,12,1:PRINT;S% 
2540 ENDPROC 
2550 : 

2560 DEF PROCscore 
2570 FOR I%=1TOl0 


II 


It 


:IF S%(1%)<999BB$= M . 


* * 


it 


• * 


■ * 


2830 PHINTTAB(3)AA$;S%(1%);". 


It 


;N$(1%)' 

2840 NEXT 

2850 VDUl9,0,0;0;17,1:PRINTTAB(8)"C to 


/ 


Him 


close sound channel 


111 1 


II 


sound channel 


TAB(11)"Sound Channel 


'TAB(11)"Any key to start"'TAB(7)"Or @ 


to clear score table 


M 


2860 COLOUR3:IF SND%=1 PRINTTAB(25,26) 


ELSEPRINTTAB(25,26)"off. 
2870 *FX15,0 
2880 A=GET 


II 


If 


II 


on. 


2890 IF A=64 PROCscinit:OOTO2800 


2900 IF A=67 OR A=99 PRINT TAB(25,26)' 
off.":SND%=0:GOTO2880 
2910 IF A=79 OR A=lll PR I ITT TAB (25,26) 


":SND%=1:GOT02880 


it 


on 


2580 IF S%>=S%(I%) AND SC%=0 SC%=I% 


2920 ENDPROC 
2930 : 


2590 NEXT 

2600 IF SC%=0 ENDPROC 


2940 DEF FNpoint 

FNpnt(X%(I%) , Y% (1%)) 


2610 PROCentername 

2620 FOR P%=10 TO SC%+1 STEP-1:S%(P%) 


2960 DEF FNpnt(U%,V%) 


POINT(U%*64+32,1010-V%*32) 


S%(P%-ll) :N$(P%)=N$(P%-1) :NEXT 


2630 N$ (SCI)=N$ 


2640 S%(SC%)=S% 


2650 ENDPROC 


3000 MODE6 
3010 *FX4 


2660 : 


2670 DEF PROCentername 

2680 VDUl2,17,2:PRINTTAB(0,6)"Your sco 

re is in the 
2690 VDUl7,6:PRINT 
TAB(7)"name:"'' 

2700 *FX15,0 
2710 VDU23;10,224;0;0;0 


3020 IF ERR=17 END 


3030 REPORT:PRINT" at line ";ERL 


It 1 t 


TAB(6)"Top Ten 


II I I I I 


U 


II 


Please enter your 


This program was adapted from a 

for the BBC micro 


1 I 


published in BEEBUG Vol.2 No.3. 


* 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


DISABLING THE ESCAPE KEY & DESTROYING PR 


*FX 200,0 Re-enables the Escape key. 
*FX 200,1 Will disable the 
*FX 200,2 enables 


the Escape key, 


but 


pressing Break will clear the memory, 


preventing the program being retrieved with OLD. 

and clear the manory on Break. 


FX 200,3 disables the Escape key, 


* 
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ELEC IRON GRAPHICS (Part 2) 


by David Graham 


We continue our series on Electron Graphics by introducing multiple user-defined 
characters, and simple animation techniques. 


100 MODE 5 

113 VDU23,232,0,240,136,136,255,253,255 


,12 


120 VDU23,233,255,255,255,255,255,253,2 
55,28 

130 iorry$ 

140 PRINT lorry$ 


CHR$233+CHR$233+CHR$232 


The lorry will now be placed on the 

screen every time that 
PRINT lorry$ is encountered. This 

it is to write 


the expression 


LARGER CHARACTERS. 


shows how easy 


or more user defined 

excellent 

game Hedgehog, published in ELBUG issue 
1, uses this principle. A whole series 

are defined in the 

(line 

of the characters 


joining two 
characters together. 


understandable code in BBC Basic. 


The 


If you want to move the lorry across 
the screen, you must erase the back end 
with each new position printed, 
explained last month, 
you can incorporate a space at the back 

end 

automatically do this for you. Just add 
the following: 


of 


characters 


430 


procedure 
onwards). 

defined here are small 
and trains which are built up elsewhere 
in the program. 


PROCDEFINE 


To achieve 


this 


Many 


parts of 


which will 


of 


the lorry 


Take, for example, characters 232 
and 233 (defined in lines 620 & 630, 

ELBUG issue 1 page 32). These 
consist of the front and back of a 
lorry. 

two halves separately. 


150 lorry$ = CHR$32 + lorry$ 


The character for a blank space already 
exists in the machine as character 32. 


The lines below will print the 


To make the lorry move from left to 


right across the screen, you just need 


100 MODE 5 

113 VDU23,232,0,240,136,136,255,253,255 


a FOR loop of the kind used to move the 
invader in last month's article. 


,12 


120 VDU23,233,255,255,255,255,255,255,2 
55,28 

130 PRINT CHR$233 
140 PRINT CHR$232 


You can print the two side by side. 


and so produce a lorry, by inserting a 
semicolon {;) at the end of line 130. 


You can make the lorry longer by 
adding a second body 
CHR$233;CHR$233;CHR$232). This 
nique can be both cumbersome and slow 

Fortunately there is a 
simple solution: use a so-called string 

variable 


piece. (PRINT 


teen 


string of 


hold the 


to 


Try tne following (note that lines 
100 to 120 are as above): 
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You will see that the two halves are 


Add the following to achieve this: 


printed side by side. 


way 

them printed correctly is to 
string which repositions the 

position for 
Try adding 


to 


160 FOR A% 

170 PRINT TAB(A% / 10) lorry? 
180 TIME 
190 NEXT 
200 END 


1 TO 36 


define a 

cursor in 
printing the second half. 

the following: 


correct 


0 : REPEAT UNTIL TIME =10 


140 move$CHR$10+CHR$8+CHR$8+CHR$32 

1 50 manl$=CHR$324CHR$224+move$+CHR$22 5 

160 PRINT TAB(10,10) manl$ 


In the program Hedgehog, whole 
strings of characters are built up 
using this technique to 
highway full of moving cars, and a busy 
railway track, 
the program, you may 
interesting to examine the characters 
that the author has used. To do this, 


a 


This will print a complete man. It 

move? is made up of 
which reposition the cursor 
for printing the man's lower half. 
CHR$10 sends the cursor down one place, 
while each CHR?8 


If you have a copy of 

find 


worxs 


it 


run Hedgehog until the game proper 
begins (to define the characters) 

Break. Then type in and run 


and 


We have backspaced twice and added the 


then pres 


ready for 


blank 


c ha r ac te r 


some 


the following program : 


animation. 


10 MODE 6 
20 FOR A% 

30 PRINT A% ; CHR$A% 
40 NEXT 
50 END 


224 TO 255 


It will list out the characters used 
against the character numbers. 


VERTICAL CHARACTERS 


All of the characters in Hedgehog 
are constructed by adding individual 
characters together horizontally. If 
you wish to create figures that 
more than one character high, then a 
further technique is required to join 

In practice 

cursor 


two pieces together. 


the 


Tnere 


movement 


it 


is quite easy 


You 

control characters to reposition the 
cursor between each character printing. 


cursor 


characters as shown in the table below. 


CHARACTER 


EFFECT 


In order to illustrate this 


let 


8 


us 


Forward one space 
Down onespace 


man 1 , two characters 
The first thing to do is to 


9 


try to 
high. 

the character definer program supplied 

introductory 

top and bottom half of the 

then be 


10 


use 


11 


Up one space 


to 


on our 
generate a 

man. The two characters can 
incorporated into the program and 
printed out. The following gives an 
acceptable image in mode 4. It will 
need slimming down somewhat for mode 5. 
Try the program below: 


ANIMATION 

The basic principle behind character 

animation is to cycle through a number 
of different images to produce the 
impression of movement 
games this is often combined 

movaTien t of the 


In computer 

with 


100 MODE 4 

110 VDU23,224,60,126,60,60,24,126,125,1 


To produce a moving animated man 

a second image of the man. 
To keep things simple we will just 
alter the lower half. A suitable 


first need 


89 


120 VDU23,225,189,60,62,54,54,55,48,56 
130 PRINT TAB (10,10)CHR$224;CHR$225 
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alternative character may 
with 


statement is in fact a very useful way 

of creating a time delay. The length of 
the delay is determined by the number 
in brackets. This gives the delay in 
hundredths of a second. 


130 VDU23,226,95,30,22, 54,54,1 02,70,71 


If you place this into the program and 
add the following lines you should 
the man walk across the screen. 


will look at the 


Next month 
creation of multi-coloured characters 
and their animation. Below you will 
find a complete listing of the moving 
man program. 


160 man2$=CHR$32+CHR$224+move$+CHR$226 
170 PRINTTAB(10,10)manl $;TAB(1 2,10)man2 


v> 


180 FOR A=1 TO 38 

190 PRINT TAB(A,15)manlS 

200 X = INKEY (10) 

210 PRINT TAB(A,15)man2$ 
220 X=INKEY(10) 

230 NEXT- 


10 REM Program MANRUN 

20 REM Version v3 
30 REM Author D.Graham 

40 REM EL8UG December 1983 

50 REM Program subject to copyright 

63 : 

100 MODE4 

110 VDU23,224,60,1 26,60,60,24,1 26,1 25 


240 


Lj 


/ 


is achieved by alternating 
between the two men (lines 190 & 213) 

within the FOR loop which moves them 


Th i s 


189 


120 VDU23,225,189,60,62,54,54,55,48,56 

130 VDU23,226,95,30,22,54,54,102,70,71 
140 move$=CHR$l 0+CHR$8+CHR$8+CHR$32 
150 manl$=CHR$32+CHR$224+move$+CHR$225 
160 man 2 $=CHR$3 2 +CHR$224 +move$ +CHR$226 
170 PRINTTAB(10,10)manl$;TAB(12,10)man 


across the screen. 


You should be able to 

ideas as the basis for some interesting 
animations - but remember, if your man 
needs also to walk from right to left, 
he will need two further sets of legs 

pointing in the other 

of the INKEY 
statements in lines 200 and 220 is to 
slow down the movement. If you remove 
them, the man moves far too quickly, 

lost. The INKEY 


2 $ 


180 FORA=1 TO38 

190 PRINTTAB(A,15)manl$ 

200 X=INKEY(10) 

210 PRINTTAB(A,15)man2$ 
220 X=INKEY (10) 

230 NEXT 
240 END 


with 


direction. 


The 


and 


is 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


READABLE PROGRAMS 


If you have trouble in reading your programs, try using the 
inserts spaces at certain selected points according to the table below: 

list the program as stored in memory 
insert a space after each line number 
indent FOR 


LISTO option which 


LISTO 0 
LISTO 1 
LISTO 2 
LISTO 4 
to insert 


.NEXT loops with two spaces 


indent REPEAT..UNTIL loops 


SO 


a space after each line number and indent only FOR..NEX 


loops, use 

LISTO 3, Note, however, that the program will not actually be listed until 




1+2, i.e 
you type LIST<return>. 


* f * * n * ■ ■ ■ * # « -g. ■ ■ * » # # ■ 

■ * m ■ ■ i « w * * ■ ■ * » ■ ■ m g * • 


v m 


■ * #*#»**## 4 * * « 4 


* * ■ * m ■ 


» * * ■ * 

*# + ##* ****** 


* • « # P ■' * m m m v 


# * ■ 


* * 


* * * # * 


9 m * 


*■ - * 


RECALL OF FUNCTION KEYS - David Moncur 

-- _■__ _ _ -J_i - 

It is sometimes useful to recall the information associated with a function key 

This can be difficult if it is a long string that 
includes CLS. However it can be done neatly using AUTO: Choose a range of line 
numbers outside your current program, e.g. from 9000 onwards. Type AUTO 9000 
<return>. Pressing each function key followed by return causes the list to be 
displayed as program lines. Remember to delete them afterwards. 


and make it appear on the screen. 
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SANTA’S PARCELS 


A Came for Christmas by Alan Webster 


10 REM Program SANTA 
20 REM Version B0.6 
30 REM Author 
40 REM BEEBUG 
53 REM Program Subject to copyright 


In this 

included tne first part of a 
article on 
program. Here 

program for those who would 
play this game and 
program without waiting for 
month's issue of the magazine. 


issue of 


have 
two part 
how to write a games 
we present the completed 

like to 
the whole 

next 


ELBUG 


we 


Alan Webster 
December 1983 


60: 


100 MODE2 

105 ON ERROR GOTO 500 
110 PROCsetup 
120 PROCfrontpage 
130 PROCchars 
140 PROChouses 


The game is quite simple to play. 

Parcels of different sizes, and placed 

on a sledge, race across tile sky above 
three houses. By pressing the 

bar, you must try to drop a parcel 
through the chimney of a house below. 
The 


150: 


160 REPEAT 
170 PROCplay 

180 UNTIL over% 
190 PROCend 
200 END 


parcels are of different sizes and 


won't necessarily fit all the chimneys. 
This is recognised in the 
you get 10 points for dropping a parcel 
through the largest chimney, 25 points 
for the middle 


scoring, 


210 : 


500 ON ERROR OFF:MODE 6 
510 IF ERR017 THEN REPORT: PRINT" at 

line ERL 
520 END 
530: 

1000 DEE' PROCsetup 


chimney and 50 
points for the smallest chimney. 
Unfortunately, you also lose 5 points 
whenever a parcel misses or won't fit 
the chimney of the house you have 
chosen. The game continues until 20 
parcels have missed their target. 


size 


1020 d r op% =FALS E:over %=FALS E 
1030 AX%=19:AY%-RND(10) 

1040 parcel=RND(3)+225 
1050 VDU23,1,0;0;0;0; 

1360 ENVELOPE 1,5,-10,5,20,10,5,20,126 
0,0,-126,126,126 
1090 ENDPROC 
1099: 

1100 DEF PROCfrontpage 
1110 COLOUR 1 

1120 PRINT TAB(6,2)"SANTA’S 

1130 PRINT TAB{6,6)"PARCELS 

1140 COLOUR 2 
1150 PRINT TAB(3,20)"Press any key." 

1160 G%=GET:CLS 

1190 ENDPROC 

1199: 

1200 DEF PROCchars 
1210 VDU23,224,0,0,0,48,72,71,32, 31 
1220 VDU23,225,0,0,0,0,0,255,1,255 
1230 VDU23,226,248,136,136,136,248,0,0 


The program has deliberately been 
kept short because of its role in 

illustrating the development of a 
computer game. Other features could 

will 

be described in the second part of that 
article in next month's issue of ELBUG. 


easily be added and some of these 


tl 


0 


1240 VDU23,227,0,240,144,144,240,0,0,0 
1250 VDU23,228,0,0,224,160,224,0,0,0 
1290 ENDPROC 
1299: 

1300 DEF PROChouses 
1310 FOR coiour%=l TO 3 
1320 PROChouse(384*colour%-320,100,col 
our%,colour!) 
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1710 FY%=FY%+1 

1720 COLOUR parcel-225 

1730 PRI NTT AB(FX%,FY%);CHR$parcel 

1740 PRINTTAB (FX%,FY!-1) ;CHR$32 

1750 COLOUR 7 

1760 IF FY%>19 THEN PROCtest:parcel=RN 
D(3)+22 5:d rop%=FALSE:PRI NTTAB (FX !, FY !) ; 
CHR$32 

1790 ENDPROC 

1799: 

1800 DEF PROCtest 

1810 ON parcel-225 GOTO 1840,1830,1820 

1820 IF FX%=15 score!=score!+50:PROCno 
ise:ENDPROC 

1830 IF FX!=9 score!=score!+25:PROCnoi 
se:ENDPROC 

1340 IF FX%=3 score%-score%+10:PROCnoi 
se:ENDPROC 


1330 NEXT colour! 

1340 GCOL0,7:MOVE 0,0:MOVE 0,100 
1350 PLOT85,1280,0:PLOT85,1 280,1 00 
1360 PLOT85,0,0 
1390 ENDPROC 

1399: 

1400 DEFPROCplay 
1410 PRQCmove 

1420 IF INKEY-99 AND NOT drop! THEN dr 
op%=TRUE:FX!=AX%:FY%=AY% 

1430 IF drop! THEN PROCdrop ELSE FOR W 
=1T010:NEXT 

1440 PRINT TAB(10,0);score!;SPC(5) 

1490 ENDPROC 
1499: 

1500 DEF PROChouse(X!,Y%,size!,colour! 


) 


1510 QCOL0,colour! 

1520 MOVEX!,Y%:PLOTl,0,123 
1530 PLOTl,96,96:PLOT1,0,20 
1540 PLOTl,96-16*size!,0 
1550 PLOTl,0,16*size!-l16 
1560 MOV?: X!+96,Y!+224 
1570 PLOTl,96,-96:PL0T1,0,-128 
1580 ENDPROC 

1599: 

1600 DEF PROCmove 
1610 AX!-AX!-1 

1620 PRINT TAB(AX!,AY!);CHR$224;CHR$22 
5;CHR$32 

1630 IF NOT drop! THENPX%=AX!*64:PY!=1 
024-(AY%*32):VDU5:GCOL0,parcel-225:MOVE 
PX%+32,PY%-4:VDUpa reel:VDU4 
1640 IF AX%=1 THEN AX%=19:PRINTTAB(1,A 
Y!);CHR$32;CHR$32:AY!=RND(10) 

1690 ENDPROC 

1699: 

1700 DEF PROCdrop 


1860 IF seore!<0 THEN score!=0 


1870 IF miss!>20 THEN over!=TKUE 

1890 ENDPROC 

1899: 

1900 DEF PROCnoise 

1910 A!=l00+25*(FX!DIV6) 

1920 SOUND 1,1,A!,5 

1990 ENDPROC 
1999: 

2000 DEF PROCend 
2010 CLS:COLOUR 1 
2020 *FX15,1 

2030 PRINT TAB(3,4) 

2040 PRINT TAB(2,8);"Your Score: 
2050 COLOUR 2 

2060 PRINT TAB(14,8);score! 

2070 VDU23,1,1;3;0;0; 

2080 ENDPROC 


. II 


Game Over 


i 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HIN I 




JOINING TOO OR MORE PROGRAMS 

If you have two programs you want to join, but you don’t want to type either of 
them back in since they’re both long, then the easiest way to join them is by 
loading in the first program and typing: 

*SPOOL"name"<return> 


Then set the recorder to ’Record 


and type 


LIST<return> 


Make sure you have a tape ready and the computer will then list the program out to 

a file called "name". When the listing is complete, do not switch off the 


cassette yet but type: 


*SPOOL<return) 

Rewind the tape to the start of the file. You should now load your 
and renumber it if any of the line numbers are the same as the SPOOLed program. 
Finally, type: 

EXEC"name"<return) 

and your previous program will be read in from cassette, to join the program already 
residing in memory. You should ignore the error messages resulting from this last 
command. M 


program. 


* 
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RESCUING A BAD PROGRAM 


by Colin Opie 


One of the most dreaded error messages that your Electron will produce is 'Bad 
Program’. Once that has been displayed you will find that you can no longer 

program. ELBUG comes to your rescue with a program that will 


your current 

restore your program to health with almost magical efficiency. It can also be used 


to recover programs that refuse to load correctly from cassette. 


message 'Bad program' is 


10 REM Program 
20 REM Author 
30 REM Version 
40 REM ELBUG 
50 REM Program 
60 : 

70 ON ERROR GOTO 330 

80 PROCinit 
90 REPEAT 

100 PROCrecover 
110 UNTIL finished 
120 PAGE=P% 

130 END 
140 : 

150 DEF PROCrecover 

160 ?line=6t0D: lenpos=line+3: count=1 
170 IF ?line=&0D AND line?l=&FF THEN 

finished=TRUE:ENDPROC 

180 PRINT (line?l)*256+(line?2); 

190 REPEAT 

200 IF line?count<>&0D THEN count=cou 


The 


error 


Colin Opie 
E0.1 

December 1983 
subject to Copyright 


produced by Basic when it detects that 

in memory has been 

been 


the 


program 
corrupted, 
incorrectly, 
issued, the user cannot directly modify 
this program in any way. LIST does not 
work 


loaded 


has 


or 


Once the message has been 


and typing new lines has no 

be disastrou 


if a 

small programming error results in a 
corrupted program for which you have no 
backup copy on tape. The RESCUE program 
presented here will search through a 
'Bad Program’ for the corrupted parts, 
and fix these in such a way that the 
program can once again be listed and 
edited. This may not completely restore 
the original program but it does allow 
you to gain 
that damaged lines can be deleted or 

replaced. 


effect. This can 


o 


access to the program so 


nt+1 


210 IF 1ine?count<>&0D AND iine?count 
<32 AND count>4 THEN 1ine?count=35 
220 IF count>250 THEN line?(count+1)= 


USING RESCUE TO RDCOVER BAD PROGRAMS 
To use the RESCUE program, you must 
first type it in and 

(SAVE"RESCUE"). 

reasonably short but must be typed in 
very accurately. Once it is safely on 

tape, you can 
program. 


it on 


&0D 


It 


is 


230 UNTIL line?count=&0D 
240 PRINT “line 

250 line=line+count: ?lenpos=count 

260 ENDPROC 
270 : 

280 DEF PROCinit 
290 P%=&E00 

300 line=P%: line?l=0: finished=FALSE 
310 ENDPROC 

320 : 

330 ON ERROR OFF 

340 MODE 6:IF ERR=17 END 

350 REPORT:PRINT" at line ";ERL 

360 END 


it to recover a 


When you get a 'Bad Program 
type the following: 


message 


PAGE=&5B00 
CHAIN"RESCUE 


<return> 

<return> 


Changing the value of PAGE ensures 
that the RESCUE program occupies a 

separate area of memory to the corrupt 
program. The RESCUE program will then 
attempt to patch back together the 
program currently resident in memory. 

When it finishes, you should be able to 
list and edit your repaired program as 
normal. 


This program was adapted from a 

version for the BBC micro first 
published in BEEBUG Vol.l No.8. 
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Before attempting to reload the 
offending program from 
the following line into your Electron: 
*OPT2,0 <return> 

Now proceed to load the bad program 

before. This time, 


Explaining PAGE 


cassette, type 


Part of your computer's memory is 

reserved for its own use. The point 
where your own program starts is always 
stored for reference in a special 
variable called PAGE. On the Electron, 
this is normally set to &E00 {3584 in 

decimal), when you first switch the 
computer on. To check, type PRINT PAGE 
<return>. PAGE can be set to other 
values for special purposes, usually so 
that a program can be located in a 
different part of memory. It is 

possible, in this way, to have more 
than one program in manory at the same 
time. This happens when the RESCUE 

program and your program are in memory 
together. 


although 

appear, the program will continue to be 
loaded into the computer, including any 
corrupted sections. Once the corrupt 
program is in memory, you can follow 
the steps already described, using the 
RESCUE program, to restore as much of 
your program as possible. You should 


messages may still 


error 


also, 


at this stage, restore cassette 


loading to its normal state by typing: 

*OPT 


<return> 


Of course, this 

generally work only with your own 

programs, as you will need to know how 

to make corrections yourself, once 
RESCUE has done its job. It will not 

generally help with programs that you 
have bought or obtained elsewhere, 
especially if the Bad Program message 
arises as a result of copy protection 

the software by the 


will 


Your first action on recovering a 
corrupt program should be to save it 


(as it is) on tape with SAVE"name", 


this will safeguard against any further 
corruption of the program. Having saved 
the program, you should list it out and 
examine the lines of code. Some lines 


put 

manufacturer. 


on 


may contain rubbish, whilst others may 


have disappeared completely. Re-type or 


replace lines as needed. 


SOME FINAL HINTS 


Normally, only a small part of any 
program is corrupted, and using RESCUE 
will completely restore the original 
program. Occasionally, even after using 
RESCUE, the 
still contain a 


Something to look out for are ’# 


characters appearing in 


the program 

initial recovery. The 


after 


operation 

characters in the program with the hash 
character (#), so that they can be 

Control characters 


replaces 


control 


program will 
number of introduced 


recovered 


any 


mostly in the 
unexpected or changed 
RESCUE program cannot help you with 

you must find and 

without the 


form of 

The 


errors, 


easily recognised. 


cannot be allowed to remain, as they 

are likely to cause problems when LIST 
is attempted, and they should not be 
there anyway. 


these faults. 


them yourself 
RESCUE program, even this would not be 
possible. 


RECOVERING CASSETTE PROGRAMS 


Sometimes, you will find it 
impossible to load correctly, a program 
from 


To avoid problems of this kind, you 
should save your programs frequently 
onto cassette. Saving two copies will 
also help to avoid loading problems 
later. Moving back to a previous 

version is usually much easier than 
recovering a damaged program and should 

be quicker overall. 


and you will be plagued 

often 


with a variety of error messages 


followed by the words, "Rewind Tape". 
Trying to reload, will sometimes work 
but not always, 
the RESCUE program can 


Here we describe how 


once 


again, 


avert potential disaster. 


> 
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FOOTBALL KRAZY 


bv Alan Dickinson 


VJe present here, for your entertainment, the best game of football in town! In 
each game you get 90 seconds of fast moving, high scoring action, where you pit your 
wits against the computer's. & 


This short program, although written in Basic, gives a smooth, fast 
game of football, due to the use of good structuring techniques. This 
also allows you to modify 

example, the playing time and the names of the teams. 




easily the 


and change, for 


r 


V 


In the game presented here 
team with chequered shirts, playing against the computer 
controls the 'City' team in the striped shirts. 


Un i ted 
which 


you are designated as the 




r 


N \jT 


When the program runs, it initially asks you to enter the position 
in which you want your man to play (the goalie always stays on the 
bottom row). If you enter a value outside of the range asked for, then 
your man will be assigned to position 7. Position 26 is in the row 
next to your goalie, and 7 is in the row next to the computer's 
goalie. You are then asked for a value for the computer's 

tactic; this governs how the computer will respond in 
the game. The greater the number entered, the harder the game played. 

Try, for example, entering 26 in response to the position request, and 100 to 
defence tactic. In this arrangement, you will find it virtually impossible to beat 
the computer as it will dribble, tackle, pass and score with unnerving accuracy, and 
run rings around your players. (Nobody in the office won, or even 
mode!) 






1 


7 


U 


1 


i 




\ 


in 


To move your players, use the 'Z* key to go to the left, 
at any time, 

word of warning though, when a goal is scored, the computer moves its 
the centre 


to move right while 
will allow an oncoming ball to pass through your player. A 

men bac k to 

but leaves your men 'where they were when the goal was 

or the computer will 


f 


pressing '/ 


the pi tch 

scored. You should, therefore, move your men back quick 
instantly score another goal! 


If you do wish to change the playing time, alter the value of Z% in line 400, and 

if you'd 

1040 

into account any change in length of the names you use.) 


r different team names, then they should be changed in lines 610, 620, 

and 1190. (Don't forget to alter the relevant TA3 values to take 


1050, 


10 REM Program: KRAZY 


20 REM Version: 


v4 


30 REM Author A.DICKINSON 
40 REM ELBUG December 1983 
50 REM Program subject to Copyright 
60 : 

70 ON ERROR IF ERR<>17 THEN ON ERROR 
OFF:MODE 6:REPORT:PRINT" at line ";ERL 
: END 


80 MODE 4 

90 VDU23,1,0;0;0;0;0 

100 REPEAT 
110 PROCinit 
120 PROCtitie 

130 PRQCstart 
140 PRQCtune 
150 PROCplay 
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660 PRINTTAB(14,30)SPC11 

670 PRINTTAB(13,3)CHR$235;TAB(25,3)CH 

R$236;TAB(1 3,30)CHR$233;TAB(25,30)CHR$2 


1o0 PROCfinalscore 


170 REPEAT 


180 A$ =GET$ 


34 


190 UNTIL A$="Y 


680 FOR Y%=4 TO 29 

690 PRINTTAB(0,Y%)CHR$231 

700 PRINTTAB(39,Y%)CHR$232 
710 NEXT 

720 P%=18 

730 PRINTTAB (P%,A%)P$;TAB(P%,28) P$; 

740 Q%-18:B%=18+RND(4) 

760 PRINTTAB (Ql, 5) Q $; TAB {Q% ,B%) Q$; 

760 ENDPROC 
770 : 

780 DEF PROCtune 
790 RESTORE 
800 REPEAT 

810 READ V%,D%:SOUND 1,-15*V%,72,D% 

820 UNTIL D%=0 

830 DATA 1,3,0,3,1,3,0,3 

340 DATA 1,2,0,1,1,2,0,1,1,4,0,2 

850 DATA 1,2,0,1,1,2,0,1,1,2,0,1,1,4, 


200 UNTIL A$ 


N 


210 *FX15,1 


220 MODE 6 


230 END 


240 : 


250 DEF PROCinit 


260 VDU19,1,6,0,0,0 
270 VDU23,224,0,0,0,24,24,0,0,0 
280 VDU23,225,0,24,60,60,24,126,173,1 


81 


290 VDU23,226,173,181,60,36,36,36,36 


102 


300 VDU23,227,0,24,60,60,24,126,129,1 


89 


310 VDU23,228,129,189,60,36,36,36,36, 


102 


320 VDU23,229,0,0,0,0,0,0,0, 255 
330 VDU23,230,255,0,0,0,0,0,0,0 
340 VDU23,231,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 
350 VDU23,232,128,128,128,128,128,128 
,128,128 

360 VDU23,233,255,1 ,1 ,1 , 1 ,1 , 1 ,1 

370 VDU23,234,255,128,128,1 28,1 28,1 28 
,128,128 

380 VDU23,235,1,1,1,1,1,1,1,255 

390 VDU23,236,128,128,128,128,128,128 
,128,255 

400 Z%=9000:REM GAME LENGTH 

41 0 B$=CHR$17+CHR$7+CHR$224 
420 P$=CHR$32+CHR$226-k:hR$32-k:HR$1 1 +C 
ILR$8CHR$8+CHR$8+CHR$32-HEHR$225CHR$32 
430 Q$=CHR$32+CHR$228+CHR$32+CHR$11 +C 
HR$8-K3HR$8+CHR$8+CHR$32+CHR$2274CHR$32 
440 ENDPROC 

450 : 

460 DEF PROCtitie 

470 CLS:PRINTTAB(7,2)"FOOTBALL KRAZY” 
480 PRINTTAB(2,26)"Z = LEFT"; 

490 PRINTTAB(2,28)"X = RIGHT"; 

500 PRINTTAB(2,30)"/ = THROUGH-BALL"; 
510 PRINTTAB(4,4)"Attack position 26- 


0,2 


860 DATA 1,2,0,1,1,4,0,0 
870 ENDPROC 
880 : 

890 DEF PROCplay 
900 TIME=0 
910 REPEAT 

920 X%=20: D%=1-RND(2):Y%=16 
930 IF RND(10)>5 E%=1 ELSE E 
940 PRINTTAB(Q%,5)SS;TAB(Q%,B%)S$;TAB 

(Q%,4)S$;TAB(Q%,B%-1)S$; 

950 Q%=18:PRINTTAB(X%,Y%)3$; 

960 PROCutd:PROCcity 
970 REPEAT 

980 PRINTTAB(19,1);TIME DIV 130; 

990 PROCutd:PROCcity:PROCba11 
1000 UNTIL Y%<2 OR Y%>30 OR TIME>Z%+99 
1010 IF Y%<2 SP%=SP%+1 
1020 IF Y%>30 SQ%=SQ%+1 
1330 PRINTTAB(X%,Y%) 

1040 PRINTTAB{1,1)"UNITED ";3P% 

1050 PRINTTAB(28,1)"CITY ";SQ%; 

1060 FOR I%=0 TO 100 STEP 7 
1070 IF Y%<2 SOUND 1,-15,1%,2 ELSE SOU 
ND 1,-15,110-1%,2 
1380 NEXT 

1090 UNTIL TIME>Z%+99 
1100 ENDPROC 
1110 : 

1120 DEF PROCfinal score 

1130 PRINTTAB(15,16)" FULL TIME "; 

1140 PROCtune 

1150 REPEAT UNTIL TIME>Z%+500 
1160 CLS 

1170 PRINTTAB{2,4)"Result:" 

1180 PRINTTAB{4,6)"United ";SP%; 

1190 PRINTTAB{4,8)"City ";SQ%; 

1200 IF SP%>SQ% PRINTTAB(4,11)"UNITED 
WIN THE MA'ICH"; 


II * 


7"; 


520 INPUT A% 

533 IF A%<7 OR A%>26 A%=13 
540 PRINTTAB(4,6)"Defence tactic 
550 INPUT T% 

560 ENDPROC 
570 : 

580 DEF PROCstart 
590 S$=STRING${3,CHR$32) 

600 CLS:SP%=3:SQ%=0 

610 PRINTTAB(1,1)"UNITED 0"; 

620 PRINTTAB(28,1)"CITY 
630 PRINTTAB(1,3)STRINGS(38,CHR$229); 
640 PRINTTAB(1,30)STRING$(38,CHR$230); 
650 PRINTTAB(14,3)SPC11 


0 "; 
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1210 IF SP%=SQ| PRINTTAB{4,11)"IT 1 S A 
DRAW 111"; 

1220 IF SP%<SQ% PRINTTAB{4,11)"CITY WI 

N THE MATCH i! 

1230 PRINTTAB(2,14)"Again 

1240 *FX15,1 
1250 ENDPROC 
1260 : 

1270 DEF PROCutd 

1280 IF INKEY(-98) AND P%>1 P%=P%-1:PR 
INTTAB(P%,A%)P$;SPC1;TAB(P£,2S)P$;SPC1; 

:ENDPROC 

1290 IF INKEY(-67) AND P%<36 PRINTTAB( 
P%,A%)SPCl;P$;TAB(P%,28)SPC1;P$;:P%=P%+ 
1:ENDPROC 

1300 PRINTTAB(P%,A%)P$;TAB(P%,28)P$; 
1310 ENDPROC 
1 320 : 

1330 DEF PROCcity 

1340 IF X%<Q%+1 AND Q%>3 AND Y%<13+T% 
Q%=Q%-1:PRINTTAB(Q%,5)Q$;S PC1;TAB(Q%,B% 
)Q$;S PC1;:ENDPROC 

1350 IF X%>Q%+1 AND Q%<34 AND Y%<13+Tl 
PRINTTAB(Q%,5)SPCl;Q$;TAB(Q%,BI)SPCl;Q 
$;:Q%=Q%+1:ENDPROC 
1360 P RINTTAB(Q%,5)Q$;TAB(Q %,B%)Q$; 
1370 ENDPROC 
1380 : 

1393 DEF PROCba 11 
1400 N%=X%+D% 

1410 M%=Y%+E% 


1420 IF N%<1 OR N%>38 N%=X%:Dl=-D%:SOU 
ND 1,-15,100,1 

1430 IF M%=30 OR M%=3 IF N%<14 OR N%>2 
3 M% =Y%:E%=-E%:SOUND 1,-15,120,1 
1440 IF M%=5 OR M%=3% PROCQman 
1450 IF M%=A% OR M%=28 PROCPman 
1460 PRINTTAB(X%,Y%)SPCl;TAB(N%,M%)B$; 
1470 X%=N%:Y%=M% 

1480 ENDPROC 
1490 : 

1500 DEF PROCPman 
1510 IF N%<P% OR N%>P%+2 ENDPROC 
1520 SOUND 1,-15,60,1 
1530 IF INKEY(-67) D%=-1 X 

1540 IF INKEY(-98) D%=1 f 

1550 IF NOT INKEY (-105) E%=-E% 

1560 ENDPROC j&r 

1570: Q 

1580 DEF PROCQman 
1590 IF N%<Q% OR N%>Q%+2 ENDPROC 
1600 SOUND 1,-15,52,1 
1610 IF RND(10+T%)>3 E%=1 ELSE E%=-E% 

1620 D%=0 
1630 R%=RND(10) 

1640 IF R%>7 D%«-1 
1650 IF R%<4 D%=1 
1660 IF T%<3 OR R%<4 ENDPROC 
1670 IF X%>25 D%=-1 
1680 IF X%<15 D%=1 
1690 ENDPROC 


v 




' 


s 


This game is much more exciting than 

many games of a similar nature 
once played, proves to be surprisingly 

compulsive. 


very addictive 
moving arcade game. The purpose of the 
game is to direct the snake around the 
screen, eating up the randomly placed 

objects. With every bite that it takes, 
the tail grows longer and the snake 

Just to complicate 


and 


moves 


things, 


there 


also 


scattered obstacles which 


must be 


avoided. 


complete the first screen 


To even 

requires skill and concentration. 
Further 

playing areas, which as well as adding 
variety, require much greater skill to 
complete. 


different shaped 


Snake costs £4.00 inc VAT. Please add 50p post & packing. 

VAT not charged. 


Overseas orders: £5.50 inc post & packing 


Send order with membership number to: 

BEEBUGSOFT, P.O. Box 109, High Wycombe, Bucks HPl1 2TD. 
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SUBSCRIPTIONS 


BACK ISSUES (Members only) 


Send all applications for membership, 

subscription 


All back issues will be kept in print 

(from November 1983). Send 90p 

PLUS an A5 SAE to the 

Back copies of 
available to ORBIT members 


and 

subscriptions address 


to the 


querles 


issue 


subscriptions address. 


MEMBERSHIP COSTS; 

£5.90 for 6 months (5 issues) 
£9.90 for 1 year (10 issues) 
European Membership £16 for 1 year. 

Elsewhere (Postal zones) 

Zone A £19, Zone B £21 


BEEBUG 
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for 
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Subscription and Software Address 


ELBUG 
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This is available from the software 


IDEAS, HINTS & TIPS, PROGRAMS 


AND LONGER ARTICLES 


Substantial articles are particularly 
welcome and we will pay around £25 per 
page for these, but in this case please 
give us warning of anything that you 
intend to write. 


Editorial Address 


ELBUG 

PO Box 50 
St Alban 
Herts 
ALl 2AR 


o 


We will also pay £10 for 
Hint or Tip that we publish, and £5 to 
the next best, 
editorial material to the editorial 
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to quote your 
membership number and enclose an SAE. 


the best 


all 


address opposite, 
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